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;
}