ls|perl -e 'while (<STDIN>) {/1/ and do{print}}'