ls -l |perl -ne "print if /bla/"