$str =~ s/^0\./\./;