{  # localizing $" is a good idea...
  local $"="";
  if ($string =~ m#^[@$chars]$#) {
     print "OKie! $string is a subset of @$chars\n";
  } else {
     print "Bad $string! Bad!\n";
  }
}