perl -ne 1 *