perl -lne 'print if /pattern/' filename