$var !~ s/H/W/;