#!/usr/bin/perl

#undef $/;
#$/='';

use CAM::PDF;
for (@ARGV){
  my $pdf = CAM::PDF->new($_);
  my $contentTree = $pdf->getPageContentTree(1);
  my $a = $contentTree->toString();
  while($a =~ m/\((.*?)\)/g ){$b.=$1;}
  print "$b\n", "---" x 20, "\n";
}