As we know from perl documentation, this is strongly deprecated to use both print and syswrite to the same filehandle.
It is much safer to either reopen filehandle in a different way, or suspend writing until exact output is known (for example use stack).

It is often to not do undesireable things instead of doing them and then trying to undo.