use warnings;
use strict;

my $contact = "Firstname Lastname";
$contact =~ s/ .* \s (\S+) $ /Mr. $1/x;
print "$contact\n";