{ local $/, $_ = <DATA>; s/\|$//mg && print; } __DATA__ AAAA|Q|dfadfsfaf|S|asfddsfasfdasdfaf|werwqr345435| BBBB|Q|ccccccccc|S|ddddddddddddddddd|eeeeee111111| FFFF|Q|ggggggggg|S|hhhhhhhhhhhhhhhhh|iiiiii222222|
In reply to Re^2: Parsing delimited file
by setebos
in thread Parsing delimited file
by ravula1
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |