get_section("E0209.dat","F0210.dat","H0211.dat");

sub get_section {
print join ':', @_ ;
        for (@_) {
print ;
                /\.dat/ && do {my $file = $_;
                               my $pubdate = substr ($_, 1, 4);
                               print "$file \:\: $pubdate\n" ;
                               } ;
        }
}