print "bad string: $string\n"
  if $string !~ /^[a-zA-Z0-9]+$/;

##</code><code>##

print "bad string: $string\n"
  unless $string =~ /^[a-zA-Z0-9]+$/;