my $copy = $field1; $copy =~ s/([^\x20-\x7E])/sprintf '\x{%02x}', ord $1/eg; print ":$copy:\n"; [download]
In reply to Re: Invisible characters by toolic in thread Invisible characters by lomSpace