use strict;
use warnings;

while ( my $line = <> ) {
    $line =~
	s,
	<link 
	(
		[^>]*?
		rel
		\s*?=\s*?(["'])\s*
		(.*?)\2
	)?
	(
		[^>]*?
		title
		\s*?=\s*?(["'])\s*
		(.*?)\5
	)?
	.*?
	(
		href
		\s*?=\s*?(["'])\s*
		(.*?)\8
	)
	.*?
	(
		/>
		|
		>(.*?)</link>
		|
		>
		([^<]*?)
	)
	,
	{
		print "~~~~ HREF: $9\n"; 
		if ($6) { print "     TITEL:   $6\n"; }
	}
	,xige;
}