my ($x) = "foobar"=~/[aeiou]/; # => $x is 1