Untitled

#!/usr/bin/perl -w
use CGI;

sub parse_form_data {
        my %form_data;
        my $name_value;
        my @name_value_pairs = split /&/, $ENV{QUERY_STRING};
        if ( $ENV{REQUEST_METHOD} eq 'POST' ) {
                my $query = "";
                read (STDIN, $query, $ENV{CONTENT_LENGTH} ) == $ENV{CONTENT_LENGTH}
                or return undef;
                push @name_value_pairs, split /&/, $query;
        }
        foreach $name_value ( @name_value_pairs ) {
                my ( $name, $value ) = split /=/, $name_value;
                $name =~ tr/+/ /;
                $name =~ s/%([\da f][\da f])/chr( hex($1) )/egi;
                $value = "" unless defined $value;
                $value =~ tr/+/ /;
                $value =~ s/%([\da f][\da f])/chr( hex($1) )/egi;
                $form_data{$name} = $value;
        }
return %form_data;
}


print "Content-type:text/html\n\n";
print "<html><head><title>HELLO</title></head>\n";
print "<body>\n";
print "<pre>\n";

my $q = new CGI;
my $text= $q->param("text");

@a = split("\n", $text);
foreach $hot(@a){
if(     $hot =~ /\{(.*?)\|(.*?)\|(.*?)\}/){
        print "&ltHotspot X=\"$1\" Y=\"$2\" Z=\"$3\"/&gt\n";
}
}

print "</pre>\n";
print "</body></html>\n";