All pastes #18100 Raw Edit

dogmeat

public text v1 · immutable
#18100 ·published 2005-07-20 01:34 UTC
rendered paste body
while($input = <STDIN>) {
  chomp($input);
  if ($input =~ m/^(\+  \()([1234]\.[0-9])(.*)/) {
    $tally = $2 - 1.7;
    print "$1_$tally_$3\n";
  } else {
    print "$input\n";
  }
}