my $x = "foobar"=~s/[aeiou]/x/gr; # => $x is "fxxbxr"