Help for this page

Select Code to Download

Select or download this

use Text::CSV_XS;
use feature 'say';
use warnings;
...

    say "$s\n  @e\n  @o\n";
}

Select or download this

$ perl5.16.2 x.pl
1|str|foo\|bar|goo|2323
  1 str foo|bar goo 2323
...
foo\\|bar
  foo\ bar
  foo\ bar