Select Code to Download

use strict;
my $a = [ qw(mary had a little lamb with mint jelly) ];
...
print "a is [ @$a ]\n";
print "b is [ @$b ]\n";
print "c is [ @$c ]\n";

a is [ mary had a little lamb with mint jelly ]
b is [ mary ]
c is [ had a little lamb ]

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/