/[^a-zA-Z0-9_]/ && print "funny things appear in $_\n" for qw/not_funny funny1-/;