while (<DATAFILE>){
   if ($pt == "") 
      {if (/pagetitle.*?\"(.*?)\"/i){$pt = $1;}}
   if ($pc == "")
      {if (/category.*\?"(.*?)\"/i){$pc = $1;}}
}