Help for this page
$line =~ /\shref=(["'])?([^\s\>]+)\1/;
$line =~ /\shref=(["'])?(.+?)(?=[\s>]|\1|$)/;