Q1505 Is there an equivalent of JavaScript's escape() function in Perl?

require CGI;
$escaped = CGI::escape( $normal );

#   ...or...

sub escape {
  my $str = shift || '';
  $str =~ s/([^\w.-])/sprintf("%%%02X",ord($1))/eg;
  $str;
}
$escaped = escape( $normal );