if($file_name =~ /(\w+\.?\w+)$/) {
   $file_name = $1;
} else {
   die "invalid and possibly dangerous characters in filename."
}