print "\n PROCESSING \n\n";
while (<$fh>)
{
  print "$_ \n";
  if($_ =~ m/"urlid":"(.*?)"/)
  {
    print "found it! \n";
    $target = $1;
    print "terminating \n";
    last;
  }
}