my @names; while (<FILE>) { my ( $a, $name, @rest ) = split /\|/; push @names, $name; } [download]
In reply to Re: Parsing Names in a Text File by Masem in thread Parsing Names in a Text File by Perl Newby