#!/usr/local/bin/perl
use strict;
opendir(DIR, ".");
my @files = grep/^\w+/, readdir(DIR);
for (@files) {
 undef $/;
 open(IN, "$_") || die "Cannot open $_";
 my $str = <IN>;
 print $str;
 close(IN);
}