my $x = "foobar"; my $y = $x=~s/[aeiou]/x/g; # => $y is 3