$fullname =~ /^(.)\S*\s(.+)/; $fullname = "$1. $2"; [download]
In reply to Re: Splitting Data Out of a Text File by Hot Pastrami in thread Splitting Data Out of a Text File by Perl Newby