perl -MTie::File -e 'tie @a, q{Tie::File}, shift; chomp $a[-1]' file.txt