#!perl -n print if /RS/