Select Code to Download

print NEW if $_, join ' ', @{ $reformat{$_} } for keys %reformat;

$ perl -e 'my @x = qw{a b}; print if $_ for @x'
syntax error at -e line 1, near "$_ for "
Execution of -e aborted due to compilation errors.

next if $. == 1;

#!/usr/bin/env perl -l

...
    open my $out_fh, '>', $output_file;
    print $out_fh $_, join ' ', @{ $reformat{$_} } for keys %reformat;
}

$ cat pm_1168253_reformat_input_INPUT.txt
ACCOUNT,DATE,NOTE
...
H654321,20151209,ACCT INTO THE
H654321,20151209,TOP LINE OF THE ACCT
H432165,20151209,SINGLE LINE FOR THIS ONE

$ cat pm_1168253_reformat_input_OUTPUT.txt
cat: pm_1168253_reformat_input_OUTPUT.txt: No such file or directory
...
H432165,20151209,SINGLE LINE FOR THIS ONE
H123456,20151209,THIS IS A TEST TO COMBINE ALL MY MATCHING LINES INTO 
+THE FIRST LINE THAT MATCHES.
H654321,20151209,MATCH LINES FOR THIS ACCT INTO THE TOP LINE OF THE AC
+CT