Select Code to Download

$ ./1.hippo_regex.pl 
1..7
ok 1 - a matched
...
ok 5 - "@$ not matched
ok 6 - ~ not matched
ok 7 - [{ not matched

#!/usr/bin/perl -w
use 5.011;
use Test::More;
...
for my $str (@bad) {
    unlike ($str, $re, "$str not matched");
}