my @fields = split "|", 'abc|def';
print join ', ', @fields;  # a, b, c, |, d, e, f

##</code><code>##

my @fields = split /\|/, 'abc|def';
print join ', ', @fields;  # abc, def