foreach $pair (@pairs) {
@a = split(/=/,$pair);
$name = $a[0];
$value = $a[1];
$value =~ s/\+/ /g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$value =~ s/[\n\r]/ /sg;
$value =~ s/\[\]//g;
push (@data,$name);
push (@data, $value);
}

# Put the posted data in to a hash
%input = @data;

# Constant variables that are used later in the code
my $remoteSearchPage="http://www.collectiblestop25.com/cgi-bin/ranker/publicsearch.cgi";

# Find out how many sites were returned, how many sites to display per page and where the display should start
# These posted values need to be converted to integer types because posted data is always a string

my $resultsReturned=$input{'numberOfSites'};
my $pageStart=$input{'pageStart'};
my $resultsPerPage=$input{'resultsPerPage'};

# Calculate the last site to display on this page
if ($pageStart+($resultsPerPage-1)<$resultsReturned) {
$pageFinish=$pageStart+($resultsPerPage-1);
} else {
$pageFinish=$resultsReturned;
}

# Display how many sites were found using which text and the results which are being displayed
print "Found ${resultsReturned} sites for '$input{'searchText'}'";

# If there were sites found show which sites are being displayed
if ($resultsReturned>0) {
print ", Displaying results ${pageStart} to ${pageFinish}.<br><br>";
}

# Display the sites which were found
for (my $searchResult=$pageStart;$searchResult<=$pageFinish;$searchResult++) {
print "<b>${searchResult}.</b>&nbsp;<a href=\"".$input{'linkTarget'.$searchResult}."\">".$input{'siteName'.$searchResult}."</a>&nbsp;<font size=1>(".$input{'matchPercent'.$searchResult}."%)</font><br>";
print "<font size=2>".$input{'siteDescription'.$searchResult}."</font><br><br>";
}

# Create the form to be used to fetch the previous results if we are not at the start
if ($pageStart>1) {
my $startOfPreviousPage=($pageStart)-$resultsPerPage;
print "<form name=\"showPrevious\" method=\"post\" action=\"${remoteSearchPage}\">";
print "<input type=\"hidden\" name=\"clientResultsPage\" value=\"$input{'clientResultsPage'}\"/>";
print "<input type=\"hidden\" name=\"searchtext\" value=\"$input{'searchText'}\"/>";
print "<input type=\"hidden\" name=\"resultsPerPage\" value=\"$input{'resultsPerPage'}\"/>";
print "<input type=\"hidden\" name=\"pageStart\" value=\"${startOfPreviousPage}\"/>";
print "</form>";
}

# Create the form to be used to fetch the next results if we are not at the end
if ($pageFinish<$resultsReturned) {
my $startOfNextPage=($pageStart)+$resultsPerPage;
print "<form name=\"showNext\" method=\"post\" action=\"${remoteSearchPage}\">";
print "<input type=\"hidden\" name=\"clientResultsPage\" value=\"$input{'clientResultsPage'}\"/>";
print "<input type=\"hidden\" name=\"searchtext\" value=\"$input{'searchText'}\"/>";
print "<input type=\"hidden\" name=\"resultsPerPage\" value=\"$input{'resultsPerPage'}\"/>";
print "<input type=\"hidden\" name=\"pageStart\" value=\"${startOfNextPage}\"/>";
print "</form>";
}

# Display the appropriate previous and next buttons
if ($pageStart>1) {print "<a href='javascript:document.showPrevious.submit();'><< previous</a> ";}
if ($pageFinish<$resultsReturned) {print "<a href='javascript:document.showNext.submit();'>next >></a>";}