read(DATAFILE, $_, 16384);
($pt) = /pagetitle.*?"(.*?)"/mi;
($pc) = /category.*?"(.*?)"/im;