Help for this page

Select Code to Download

Select or download this

sub ProcessEntry
{
...
print "                  $lines[$_]\n" for (0..(@lines-2));
print "Last line is:     $lines[-1]\n\n";
}

Select or download this

Heading is:       1. This string can be modified using only regexes
middle lines are:
...
                  -But here are more
                  -strings which 
Last line is:     -I want arrayed