/[^\w\x21-\x26\x28-\x2A\x5E\x40]/ && print "funny things appear in $_\n" for qw/not_funny funny1-/;