#!/usr/bin/perl

use strict;
use warnings;

opendir DIR, ".";
# files starting with 10 should be okay for a while
my @files = grep{/^10/} readdir(DIR);
closedir DIR;

for my $file(@files)
{
    open FILE, "<$file" or die "can't open $file: $!";
    local $/ = undef;
    my $data = <FILE>;
    close FILE;
    chomp $data;
    print "$data\n";
}

__END__