.*? is a minimal match, try $url =~ s/(.*?)\?(.*)/$1/gs; or just  $url =~ s/\?.*//gs;