.
.
NEW: 45
NEW:
NEW:
NEW: 6

##</code><code>##

$line =~ s!\|!\| !g;
.
.
@new = map { substr $_, 1 } split /\|/, $line;

##</code><code>##

my @new = split /\|/, $line . '|sentinel';
$#new--; # Remove sentinel