Select Code to Download

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

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