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 /\./
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (511 votes). Check out past polls.