there is 
more 
than
one way to
do
it

##</code><code>##

perl -i -e 'while(<>){print $_[3];}' file.txt