You missed declaring my $temp.

As a side note, nothing to do with stricture, you don't know that you had a match. That means $title will be assigned whatever title resulted from the last successful match. You can fix that by saying, ($title) = $D_title =~ m/^(Dr.|Prof.|Mrs.|Ms.|Miss|Mr.)$/; (Untested)