my ($a, $b, $c, $d) = 'abcd' =~ /(w)(x)(y)(z)/;
print "$a $b $c $d";