#!perl -n if(/RS/) { print } #### #!perl -n print if /RS/