my $filename = '20020719.csv';
$filename =~ /\.([^\.]*)$/;
my $extension = $1;