if ( $lastname =~ m/^([\s\w.'-]+)$/ ...