# I open the file of query strings

open (DATABASE, "$Raw_data");
flock(DATABASE, 2);
@database=<DATABASE>;
flock(DATABASE, 8);
close DATABASE;

# read each line in
foreach $database (@database)
  {
chomp $database;

 @pairs = split(/&/, $database);

        foreach $pair (@pairs) {
                ($name, $value) = split(/=/, $pair);
                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                $value =~ s/~!/ ~!/g;
                if ($in{$name}) { $value = $in{$name}.", ".$value; }
                $in{$name} = $value;

}

# assign values to variables
$NAME=$in{'NAME'};
$AMOUNT=$in{'AMT'};

# print variables to see values
print "$NAME - $AMOUNT<br>";