if ($url_text =~ m/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/ )
{
  $url_sub = sprintf( "%%%02X", ord( $1 ) );
  $url_text =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/$url_sub/;
}

##</code><code>##

$url_text =~ s/([^;\/?:@&=+\$,A-Za-z0-9\-_.!~*'()])/sprintf( "%%%02X", ord( $1 ) )/ge;