my $linkFile = q{linksource.dat};
open my $linkFH, q{<}, $linkFile
   or die qq{open: $linkFile: $!\n};

my $rhTitleToURL = {};
LINKLINE:
while (<$linkFH>)
{
    next LINKLINE
       unless m
       {(?x)
           title\s*=\s*"
           ([^"]+)
           .*?
           href\s*=\s*"
           ([^"]+)
       };
    my ($title, $url) = ($1, $2);
    $rhTitleToURL->{$title} = $url;
}

close $linkFH
   or die qq{close: $linkFile: $!\n};