On 11/10/06, John W. Krahn <[EMAIL PROTECTED]> wrote:
$string =~ s/([^\x20-\x7f])/ sprintf '\x%02x', ord $1 /eg; John --
Thanks! I figured slightly similar code after reading of http://library.n0i.net/programming/perl/re_gex/#dynamic substitution If anyone got another solution put it here, please.
