perl -e '/regex/&&print'