my $fileName = "20020719.csv";
$fileName =~ /\.(\w+)$/;
my $extension = $1;