perl -e "@a=('ordr 1:56\n','Rply 1:0\n', 'Time 1:January 24, 2001 (4:30pm)\n'); print grep {/^R.*/} @a;"