($var1 = $var) =~ s/oo//gi;