#!/usr/bin/perl -w
use strict;
use URI::Escape;
my $cgi_chars  = '\x00-\x29\x2b\x2c\x2f\x3a-\x40\x5b-\x5e\x60\x7b-\xff';
my $bad_chars  = '^%$&=';
print uri_escape( $bad_chars, $cgi_chars );