Select Code to Download

#!/usr/bin/perl
use 5.016;
use warnings;
...
        say "\t No match found in $string";
    }
}

C:\>1069225.pl
          regex is: (?^u:(sdfsd|abc|def|hijk))

...
         No match found in xaybz3

C:\>