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