Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
for (@test_strings) {
    say "Testing [$_] : ", (/$re/ ? '' : 'no '), 'match.';
}

Select or download this

$ pm_re_kname_in_charclass.pl
Testing ["""] : no match.
...
Testing ["''] : no match.
Testing ['""] : no match.
Testing [''"] : no match.