$string =~ s/zero/0/ig;
$string =~ s/one/1/ig;
$string =~ s/two/2/ig;
$string =~ s/three/3/ig;