in reply to Extracting just the extension from a filename.

In the spirit of TMTOWTDI: 
my $fileName = "blah.csv";
my @array = split '\.', $fileName;
print $array[-1],"\n";

[download]

thor

In Section Seekers of Perl Wisdom