=============== code ==================

sub escape {
    shift() if ref($_[0]);

    my $toencode = shift;
    return undef unless defined($toencode);
    $toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
    return $toencode;
}

=============== error ================

Substitution loop at /&lt;...&gt;/dbc.pm line 248, <> line 60981.