die "some error\n" if $foo =~ /[^0-9a-zA-Z]/;