$ perl -E'@a=qw/1 2 3/; print "@a"'
1 2 3
##</code><code>##

{
 local $/ = \10240;
 print while <$peunter>;
}