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