if($line =~ /(https?:[^"]+)"/)
{
   print "WEB link->$1\n";
}