Quick & dirty URI escaping for Perl