#!perl -pli

$_ .= '_' unless $. == 1;  # append underscore, except on first line
close ARGV if eof;         # reset line numbering at end of file