#!/usr/local/bin/perl #!/usr/local/bin/perl -- -*- C -*- # Convert %XX from hex numbers to alphanumeric while (<>){ $_ =~ s/%(..)/pack("c",hex($1))/ge; print $_; }