$ perl -e'print qr/C$\n^D/,$/'
(?-xism:Cn^D)
 $ perl -le'print qr/C$\n^D/'
(?-xism:C
n^D)