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