{
   my $foo = $doc->getPageText($_) ;
   print $_ unless (defined $foo &&    # Returned something and,
       $foo =~ m/[[:alnum:]]+/ms );  # actually returned text
}