in reply to Splitting Data Out of a Text File

Maybe this:
$fullname =~ /^(.)\S*\s(.+)/;
$fullname = "$1. $2";

[download]


Hot Pastrami

In Section Seekers of Perl Wisdom