Select Code to Download

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

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