local n0="\s*?=\s*?(\"|')\s*"
cat "eineWebSeite.html" \
| perl -00pe \
"s,<link ([^>]*?rel$n0(.*?)\2)?([^>]*?title$n0(.*?)\5)?.*?(href$n0(.*?)\8).*?(/>|>(.*?)</link>|>([^<]*?)),\
{print \"~~~~~\$9\n\"; if (\$6) {print \"\t\$6\n\"}},ige"\
| perl -pe \
"s,^1+$,,g "