in reply to Extracting just the extension from a filename.

With a core module: File::Basename-- although this leaves the dot on the suffix, so you'll still want to use s/^\.// on the results on the call to fileparse().

In Section Seekers of Perl Wisdom