#! perl
use strict;
use warnings;
use CAM::PDF;

my $filename    = 'view1.pdf';
my $output_file = 'test.txt';
my @pdfStrings  = (
                      qr/Source IP:\s*(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/,
                      qr/Request URI:\s*(\S+)/,
                      qr/HOST:\s*(\S+)/,
                  );

my $pdf = CAM::PDF->new($filename)
    or die "Cannot open '$filename' as a PDF file: $!";
my $doc = $pdf->getPageText(1);

open(my $output_fh, '>', $output_file)
    or die "Failed to open file '$output_file' for writing: $!";

foreach my $search_string (@pdfStrings)
{
    my ($find) = $doc =~ /$search_string/;

    print $output_fh $find, "\n" if $find;
}

close($output_fh)
    or die "Failed to close file '$output_file': $!";