use warnings;
use strict;

my $contact = "Firstname Lastname";
#my $contact = "G. Lastname";

my ($Fname,$Lname) = split(' ',$contact);

if($Fname =~ /.*\./ )
{
        print join (' ', ('Mr',$Fname,$Lname));
}
else
{
        print join (' ', ('Mr',$Lname));
}