Select Code to Download

use warnings;
use strict;
...
my $contact = "Firstname Lastname";
$contact =~ s/^.*\s/Mr. /;
print "$contact\n";