$ ./1.hippo_regex.pl 
1..7
ok 1 - a matched
ok 2 - - matched
ok 3 - (321) matched
ok 4 - a(321-)_HGF matched
ok 5 - "@$ not matched
ok 6 - ~ not matched
ok 7 - [{ not matched