Select Code to Download

while (<FILE>) {
    $line = $_;

while ( my $line = <FILE> ) {

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $text = q{abcd};
...
say qq{>$text<};'
>abcd<
>ab<

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my @items = q{a} .. q{g};
...
e
"f"
"g"

say join q{,}, @items;