Select Code to Download

$name = qr{($title)?\W+($first)?\W+($middle)?\W+($last)};

#the title shall be extensible, ok
my @titles = qw/LTC COL DR MS MR MISS/;
...

# last name: no restrictions?
my $last = qr[\w+];