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.
Non-existent; I don't have TV
Non-existent; my TV doesn't have/need a remote
Under my control; I watch alone
Under the control of whoever shouts loudest
Under the control of whoever gets it first
One of many, and the TV has a mind of its own
Results (86 votes),