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