Help for this page
0-9 - all numbers ... @ - the at sign # - the comment character ^ - this guy
my $STR1 = '///?///'; ... print "\n" . ($STR1 =~ /(\d\w.\/~-_!@#$%\^&{}\(\).'`)/); print "\n" . ($STR2 =~ /(\d\w.\/~-_!@#$%\^&{}\(\).'`)/);