#!/usr/local/bin/perl
# Jaime Prilusky, 2010

use URI::Escape;

  my $unsafe   = "10% is enough\n";
  my $safe     = uri_escape($unsafe);
  my $verysafe = uri_escape($unsafe, "\0-\377");
  my $str      = uri_unescape($safe);

print qq{
unsafe   [$unsafe]
safe     [$safe]
verysafe [$verysafe]
str      [$str]
};