#!perl

my $s = "how regex works in list context?";
my @capt= $s =~ /(((.)..) (.(.)...) ...(.)(.) .. (.(.))..( )....(.).(.)(.))/;
#                123      4 5          6  7      8 9     10     11  12 13 
#                   h ow   r e gex  wor k  s  in  l i  st   cont e x t  ?
unshift @capt,'nothing';
print @capt[1,10,2,13,13,13,10,8,6,5,10,12,3,9,7];
print "\n";
#print "$_: $capt[$_]\n" for (0..13);
__END__
how regex works in list context? how??? like this