$string =~ tr/1//d;