note
mothra
Easy enough:
<code>open(CUST, "cust_info.txt");
while (<CUST>) { print ((split ('\|'))[1], "\n"); }
</code>
<b>Update:</b> My apologies...even after reading the question twice before answering, I still missed what you were trying to do. :)<code>
open(CUST, "cust_info.txt");
while (<CUST>) {
$full_name = (split '\|')[1];
$full_name =~ s/(\w)\w*\s+(.+$)/$1. $2/;
print $full_name, "\n";
}
</code>
is probably more what you're looking for.
88801
88801