in reply to
Strip first name from string
my $contact = "Firstname Lastname";
#my $contact = "G. Lastname";
my ($Fname,$Lname) = split(' ',$contact);
if($Fname =~ /.*\./ )
print join (' ', ('Mr',$Fname,$Lname));
print join (' ', ('Mr',$Lname));
/.*\./ is equivalent to /\./
By rote learning.
Via Genetic memory.
It's provided by my firmware.
I just remember them.
Thirty days hath September
My computer gets it right, usually.
I just ask someone else.
Someone punches me on the first of the month.
Results (51 votes),