#!/usr/bin/perl
use strict;
use warnings;

my $filename = "data_file.20070930.txt";

my @parts = split(/\./, $filename);

print "There are ", scalar(@parts), " parts to the filename $filename\n";

foreach my $part (@parts)
{
  print "PART: $part\n";
}