use File::Find;

my $dir = "documents";
find( sub {
        my $filename = $_;

        return unless ( $filename =~ /abstract-([0-9][0-9][0-9]).tex/
        && -f $filename );

        my $serialnumber = $1 ;