# das gibt Geschwindigkeit (aus URI::Escape:: entnommen)  hmmmm .... ob ein Array - $_urlescap[ord($_)] - nicht noch schneller ist?
for (0..255) {
    $_urlescapes{chr($_)} = sprintf("%%%02X", $_);
}

        local $_=@_>0?shift:$_;  # Achtung: geändert ;-)

#       s/([^A-Za-z0-9\-_.!~*'() ])/$_urlescapes{$1}/g; hmmmm .... diese Variante wäre zwar korrekter, aber da schaut dann htx=... so seltsam aus :-(

        if (@_) {
                my $_cu = $_
                for (@_) { s/([^A-Za-z0-9\-_.!~*'() ])/$_urlescapes{$1}/g; # um ' ' erweitert!
                my $_an;
                $_an = '#'.pop if @_/2>0;
                while (@_) { $_cu.='&'.shift.'='.shift }
                $_ = $_cu.$_an;
        }
        s/ /+/g;

        $_;
} # hmmm ... hoffentlich stimmt überall die Syntax!

   convert_url
   convert_url EXPR
   convert_url EXPR, LIST2
   convert_url EXPR, LIST2, EXPR1

$htx = '/main';
$u = 'direkt#1';
$name = 'Mc.Donald & Co';

# $lnk enthält nun: /baseportal/main&u=direkt%231&name=Mc.Donald+%26+Co#Abschnitt2

my %Escape = (
    '&'    => 'amp',
    '>'    => 'gt',
    '<'    => 'lt',
    '"'    => 'quot',

    my $text = shift;
    $text =~ s/([<>"&])/\&$Escape{$1};/mg;
    $text =~ s/([\x80-\xFF])/'&#'.unpack('C',$1).';'/eg;
    $text;
}