ABC: while ()
{
   #print "entered into while loop\n";
   if ($_ =~ /$net_extract/) 
   {
      $count = 1;
      print "hello\n";
   }