undef $/; $_ = <>; s/(\x31\x33\x39\x37[^\x00]*\x00)/"\x00" x length $1/ge; print;