if ($filename =~ m#^[\w.]$#) {
  print "Ready to process $1...\n";
}
else {
  print "Skipping $1: bad characters detected\n";
  ## Log to a file, email someone, raise a ruckus, etc.
}