use URI::Escape;
my $file = uri_unescape($ENV{QUERY_STRING});
$file =~ s/\\/\//g; # to replace \ by /
$file =~ s/\+/ /g; # to replace + by space
torrent (http://torrentmania.info/)
katalog (http://nbf.pl/)
dobry (kttp://dobry-katalog.rozpusta.webd.pl/)