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.
Electric eels were invented at the same time as electricity
Before electricity was invented, electric eels had to stun with gas
Results (321 votes). Check out past polls.