if( $line =~ /.*a HREF=\"(.*?)\"/s ){ print $1; }