use warnings;
use strict;

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