#!/bin/sh unzip -L $* | perl -ne 'if (/^\s+[a-z]+: (.+?)\s*$/) { print "$1\n" }'