nitpick, but important: Perl is case sensitive... and your (inadequate) data sample doesn't show Rp and /RP whether occuring together or not.