Help for this page

Select Code to Download

Select or download this

my @results = map {
    [$_ => domatch($_, $r)]
...
        print "No match.\n";
    }
}