in reply to How to find out a compressed file inside a script ?
try the below code and add your extensions as per your requirement,
$filename =~ /\.(zip|gzip|txt)$/i
Also you can use File::Basename to get the file extensions exactly.
Yes, I watch meteor showers
No, I do not watch meteor showers
My meteors prefer to bathe
Results (184 votes). Check out past polls.