>>> Perl - не Shell :)
>> Ждём решения
> или на bash 4.1+,

Ну... Дождались!!

$ bash --version |awk '{print$4;exit}'
4.1.2(1)-release
$ xx() { local S="$1" D= LANG=C;while [ "$S" ]; do if [[ "$S" =~ ^[[:print:]]+ ]]; then D="$D${BASH_REMATCH[0]}"; S="${S:$((${#BASH_REMATCH[0]}))}"; else D="$D%$(printf "%02x" "'${S:0:1}")"; S="${S:1}"; fi; done; echo "$D"; }
$ xx https://ru.wikipedia.org/wiki/Оболочка_операционной_системы
https://ru.wikipedia.org/wiki/%d0%9e%d0%...
$ _