my $description = 'a|b|c|d|e';
print "$description\n";
my (@new) = map {"$_\n"} split (/\|/, $description);
print @new;