@lines = <>;

##</code><code>##

$ perl thiscode.pl < SOMEFILE.txt