All pastes #18098 Raw Edit

dogmeat

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