use URI::Escape;
my $encoded = uri_escape("10% is enough\n");

sub encode {
  $param = shift;
  $param =~ s|\?|55X77X85X4|g;
  $param =~ s|\&|33X56X89X3|g;
  return $param;
}
sub decode {
  $param = shift;
  $param =~ s|55X77X85X4|\?|g;
  $param =~ s|33X56X89X3|\&|g;
  return $param;
}

$page = encode ($page);

#Und zum dekodieren
$page = decode ($page);