while(<DATA>){
/NAME="([^"]*)"/;
$name = $1;
$name =~ s/([^-_0-9a-zA-Z])/sprintf( "%%%02lx", unpack( "C", $1 ) )/eg;
/VALUE="([^"]*)"/;
$value = $1;
$value =~ s/([^-_0-9a-zA-Z])/sprintf( "%%%02lx", unpack( "C", $1 ) )/eg;
push(@pair , "$name=$value");
}
print join("&", @pair);
print "\n";
__END__
<INPUT TYPE="hidden" NAME="db" VALUE="search.cgi">
<INPUT TYPE="hidden" NAME="format" VALUE="check.htm">
<INPUT TYPE="hidden" NAME="error" VALUE="n_found.htm">
<INPUT TYPE="hidden" NAME="disp" VALUE="Disp">
<INPUT TYPE="hidden" NAME="SW" VALUE="ON">
<INPUT TYPE="hidden" NAME="SortF" VALUE="number">
<INPUT TYPE="hidden" NAME="SortO" VALUE="view">