quick and dirty oneline example

 perl -e '@files=qw(file.txt myzip.zip zip_archive.tgz newfile.zip);@z
+ips=grep {m/\.zip$/;}@files;$zip_count=@zips;print "\n$zip_count zipf
+iles: @zips\n";'

2 zipfiles: myzip.zip newfile.zip
[download]