Select Code to Download

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

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

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