Help for this page
Select Code to Download
Select
or
download this
my ($a, $b, $c, $d) = 'abcd' =~ /(w|)(x|)(y|)(z|)/; print "$a $b $c $d";