Select Code to Download

use warnings;
use strict;
...
c
d
e

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