Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -w
use strict;
...
[9] 17
[0] g'day mate

Select or download this

$/="\'\n";
while (<DATA>) {
...
    my $i;
    print "[",$i++,"] $_\n" for split /\+/;
}