my @titles = qw{ Mr Mrs Ms Miss Dr Sir Lord Lady };
my $titlesRegex = do{
   local $" = q{|};
   qr{^(@titles)\s+(.*)}
   };
if( $text =~ $titlesRegex )
{
    print qq{$1 => $2\n};
}