#!perl

use strict;
use warnings;
use CAM::PDF;

my $output_file = 'test.txt';

my $filename = "view.pdf";
my @pdfStrings = ( qr/Source IP:.*(\d+.\d+.\d+.\d+)/, qr/Request URI: (.*)/, qr/HOST: (.*)/ );


open(my $output_fh, '>', $output_file)
    or die "Failed to open $output_file - $!";


foreach my $pdfString (@pdfStrings) {	

my $doc = CAM::PDF->new($filename) || die "Unable to open $filename  - $!"; 
my $ascii = CAM::PDF->parseAny($pdfString);

print $pdfString, "\n";
}