$ perl -E '
    my @x = (
        "A\n", "B.\n",
        "C\r", "D.\r",
        "E\r\n", "F.\r\n",
        "G\f", "H.\f"
    );
    say q{*** With $ ***};
    say "|$_|" for grep /\.$/, @x;
    say q{*** With \R ***};
    say "|$_|" for grep /\.\R/, @x;
'
*** With $ ***
|B.
|
*** With \R ***
|B.
|
|D.
|F.
|
|H.
   |