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