Select Code to Download

while (match('a')) {
    print "- $_\n";   # $_ is undef all the time
}

while (my $entry = match('a')) {
    print "- $entry\n";  # prints the correct results
}

my $matchPos = 0;

sub match {
...
while (match('a')) {
    print "- $_\n";
}