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