Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
for my $str ('Matched', 'No match') {
    print "match: Matched $1 for '$str'\n" if $str =~ /(\w*ed)/;
}

Select or download this

defined: Matched Matched for 'Matched'
defined: Matched Matched for 'No match'
match: Matched Matched for 'Matched'