use CAM::PDF;

use strict;
use warnings;

my $filename = 'foo.pdf';

my $pdf = CAM::PDF->new($filename);

for my $pagenum (1..$pdf->numPages()) {
    my $text = $pdf->getPageText(pagenum);
    if ($text =~ /looking for text/) {
        print "Found on $pagenum\n";
    }
}
[download]