in reply to How to chomp the last new line character from the file
A little Tie::File fun:
perl -MTie::File -e 'tie @a, q{Tie::File}, shift; chomp $a[-1]' file.t +xt [download]
Dave