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

##</code><code>##

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

##</code><code>##

print
  join ', '
  , map
      {
        s/^\s+// ;
        s/\s+$// ;
        $_ ;
      }
      split /\|/ , 'p | q|r|s | t'
      ;

##</code><code>##

print
  join ', ' , split /\s*\|\s*/ , 'p | q|r|s | t' ;

##</code><code>##

#  input.
Baw|Vao|111 Noa St||NewYork|NY|10012|2123456789|123456789

##</code><code>##

#  code.
    my @fields = (map { s/^\s+//; s/\s+$//, $_ } split /\|/, $_);