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