use strict;
use warnings;
use CAM::PDF;
    
my $pdf = CAM::PDF->new('C:\Dokumente und Einstellungen\user\Desktop\stat_geldmarkts.pdf');
 
my $page1 = $pdf->getPageText(1);
my @a = split "\n", $page1;
print $a[$#a];

use strict;
use warnings;
use CAM::PDF;
use Data::Dumper;
    
my $pdf = CAM::PDF->new('C:\Dokumente und Einstellungen\behe3087\Desktop\stat_geldmarkts.pdf');
 
my $page1 = $pdf->getPageText(1);
my @a = split "\n", $page1;
@a = grep /(\d\,\d{2,3}|\.\.\.)/, (split " ", $a[$#a]);
print Dumper \@a;