$elem =~ s/([^[:print]])/'\x'.unpack("H*", $1)/eg; might, therefore be revealing as well.
-Paul
In reply to Re^2: Equal strings don't match! by jettero in thread Equal strings don't match! by pl