for my $in ( <$fh> ) { my @p = map { ... } split /\|/ , $in; ... }