use URI::Escape;

$encoded = uri_escape($unsafe_uri);

##</code><code>##

use URL qw( urlencode );

$encoded = urlencode( $unsafe_uri );