my $string;
open(PDF,"<existing.pdf");
binmode PDF;
while (<PDF>) {
   $string .= $_;
}
close(PDF);