my ($x,$y) = "foobar"=~/([aeiou])(.)/; # => $x is "o", $y is "o"