open (FILE, $filename) or die $!;

print while <FILE>;

##</code><code>##

perl -pe '$_' file.txt