Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
        say "$word: NO_MATCH";
    }
}

Select or download this

foofoo2010 => foo(foo2010): (?-xism:foo\d+)
subarashii => su(bara)shii: (?-xism:bar\S+?)
bowwowmeow: NO_MATCH