use strict; 
use warnings;

use URI;
use File::Basename;

my @suffix = qw(.jsp .html .asp .htm);

for (</path/to/test1/*.txt>) {
    open (FH,$_);
    my $uri = URI->new(<FH>);
    close FH;

    next unless $uri->scheme;

    my %q = $uri->query_form;
    my (undef,@key) = split( /\//, dirname($q{content}) ); 
    push @key, basename($q{content},@suffix);

    print "<Textfile>\n",
        "filename: {", basename($_), "}\n",
        "Keys: {", join(',',@key), "}\n",
        "</Textfile>\n",
    ;
}