$output =~ s/\x7E(?=.)/\x7D\x5E/g;