Concerning the usage of $", one could augment your solution by doing

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

On a funny sidenote, something like the following also uses $" :)

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