$/="</html>"; 
 
while (my $line = <$FH_IN>) { 
    chomp $line; #removes line break or new line;
           my $url_sub = "";
           my $data="";
           $url_sub =~ s/.*a href="(.*)".*/$1/;
           print $url_sub;