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

2 zipfiles: myzip.zip newfile.zip