my @file = <>;
$" = '#';
print "#@file";
#     ^^^

##</code><code>##

$" = '#';
print $", $_ while <>;