my @vulnerabilities = qw(
    http://www.parismatch.com/recherche/recherche?motcle="%2F><marquee>xss+death-angel<iframe+src%3D"htt
p%3A%2F%2Fwww.xssed.com"%2F>&x=5&y=6
    https://www.simplydomains.co.nz/register.php/ref="><script>alert(1);</script>
    https://www.simplydomains.co.nz/logon/ref="><script>alert(1);</script>
     https://www.eso.shell.com/eso/e_invoice_jsp/req_form_uk2.jsp?countrycode=18&language=%22%3E%3Cscript%3Ealert(%22daimon%22)%3C/script%3E
);

foreach my $vuln (@vulnerabilities) {

    my ($file) = $vuln =~ m{^/.*?([^/]+)[\?/]};
    print $file, "\n";
}

##</code><code>##

recherche
register.php
logon
req_form_uk2.jsp