if ($lastname =~ /[^a-zA-Z' -]/) {
   die("Bad character\n");
}