So as sample code the sub becomes:

sub ProcessEntry
{
my $heading = shift;
my @lines = @_;

print "Heading is:       $heading\n";
print "middle lines are:\n";
print "                  $lines[$_]\n" for (0..(@lines-2));
print "Last line is:     $lines[-1]\n\n";
}
[download]

Which prints:

Heading is:       1. This string can be modified using only regexes
middle lines are:
                  -These strings
                  -Need to be
                  -put into an
Last line is:     -array

Heading is:       2.Here's another string needs only regexes
middle lines are:
                  -But here are more
                  -strings which 
Last line is:     -I want arrayed
[download]

Obviously you can replace the print lines with whatever you require, but that should suffice to show you how to access the various lines.