my $ungood = qr/[^a-zA-Z1-9 ]/;
warn "Bad Text!" if $string =~ $ungood;