Za upozornění na chyby děkuji Martinu Forstovi (MF), Pavlu Vraštiakovi (PV) a Jánu Sučanovi (JS).
while read nova; do # < $soubor IFS='<' set -- $text$nova shift text= while [ $# -gt 0 ]; do case $1 in *\>* ) odkaz "$1" shift;; * ) text="<$1 " break;; esac done done < $soubor