perl -ne '...' *