perl -ne 'undef $/; $\="\n"; 
(($count = $1) =~ s/.*\Count\s*(\d+).*/\1/ && 
$pages < $count ? $pages=$1 : 1) 
while s/(<<[^<]*\/Type\s*\/Pages[^>]*>>)//; 
print $pages' somefile.pdf