my ($pt, $pc);
while (<DATAFILE>){
   $pt = $1 if !defined $pt and /pagetitle.*?"(.*?)"/i;
   $pc = $1 if !defined $pc and /category.*?"(.*?)"/i;
   last if defined $pt and defined $pc;
}