Help for this page

Select Code to Download


  1. or download this
    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";
  2. or download this
    a is [ mary had a little lamb with mint jelly ]
b is [ mary ]
c is [ had a little lamb ]
  3. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/