Help for this page

Select Code to Download

Select or download this

if ( my (@caps) = ($line =~ $re) ) {
    @caps = () if $caps[0] ne $1;           # reset pseudo captures
    $cb->(@caps);
    last;
}

Select or download this

c:\@Work\Perl\monks>perl

...
str <>  re (?-xism:XY)  NO match
str <>  re (?-xism:(X)Y)  NO match
str <>  re (?-xism:)  matched,  captured ()