use URI;

while (<DATA>) {
    my $file = (URI->new($_)->path_segments)[-1];
    print $file, "\n";	
}

__DATA__
http://www.spied.co.nz/thinmailer.cgi
http://www.site.com/dir/file.html?param1=val1&param2=val2