Perl Script Redirect

I need a script similar to this one but that can It can identify url paramaters and convert them to new parameters In this example when typed [login to view URL] goes to [login to view URL] I need a script that when someone type [login to view URL];category=1 to redirect it to [login to view URL] category=5 I am using this script in my squid box !/usr/bin/perl $|=1; while () { @X = split; $url = $X[0]; if ($url =~ /^http:\/\/google\.com/) { print "302:https:\/\/yahoo\.com\n"; } elsif ($url =~ /^http:\/\/www\.google\.com/) { print "302:https:\/\/yahoo\.com\n"; } elsif ($url =~ /^http:\/\/gmail\.com/) { print "302:https:\/\/yahoo\.com\n"; } else { print "$url\n"; } }