Закодировать:
$toencode =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%x",ord($1))/eg;
Раскодировать:
$todecode =~ s/%(..)/pack("c",hex($1))/ge;

URL:
Обсуждается: http://www.opennet.me/tips/info/32.shtml

• Как закодировать и раскодировать строку %XX в URL.,Alex, 07:14 , 10-Сен-03
• Как закодировать и раскодировать строку %XX в URL.,Alex, 07:17 , 10-Сен-03
• Как закодировать и раскодировать строку %XX в URL.,fisher, 10:30 , 20-Мрт-05
• Как закодировать и раскодировать строку %XX в URL.,HHBak, 12:17 , 06-Июн-05
• Как закодировать fideo,Andrej, 15:43 , 28-Фев-09
  • Как закодировать video,дед Вано, 11:21 , 18-Мрт-09
• Как закодировать и раскодировать строку %XX в URL.,дед Вано, 11:37 , 18-Мрт-09

О мой бог! Выкиньте этот совет! А что  - "value=20%% up" как по вашему тогда раскодируется? Пользуйтесь лучше функциями в mod_perl или в последнем CGI есть CGI::Util. (use CGI::Util qw(escape unescape)) и еще там есть полезности.

Так. Кажется тут сайт тоже не совсем хорошо работает. Там было: value=20�x25;�x25;�x25;20up. Если опять не получится: 20(процент)(процент)(процент)20up. Должно раскодировать как "20(процент)(пробел)up"

$todecode =~ s/%([a-fA-F0-9]{2})/pack("c",hex($1))/ge;
$toencode =~ s/%%/%/ge;

$toencode =~ s/([a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;

"^" нафига там?.. С ним ничего не закодирует.

напешите как закодировать видео

если ди ви ди, то DVD Architect v3.0 и выше...
а если си-ди то прогой alw_45_march_3
а ломать защиту FairUse5WM.

FairUse5WM? Дай ПЛЗ ссылку. Давно ее ищу.