Select Code to Download

while ($in =~ /\W/) {
  # do something
}

while ($in !~ /\w/) { ... }

while ($in =~ /[^a-zA-Z0-9]/) {
  # do something
}

while ($in !~ /[a-zA-Z0-9]/) { ... }