($title) = $D_title =~ m/^(Dr.|Prof.|Mrs.|Ms.|Miss|Mr.)$/;