$new_url =~ s/\&/&/g; foreach my $sid_string(qw(sessionid lsessionid jsessionid SID PHPSESSID SessionID BV_SessionID osCsid)){ if($new_url =~ m/([?&;]${sid_string}=[^&;]+)/i){ $new_url =~ s/\Q$1\E//g; } }