Select Code to Download

#!/usr/bin/perl

...
}

print join ",", @z;

a ,b ,c , new(d)

print join ", ", map { chomp; s/(d)/new(\1)/ } @a;