c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"print qq{'x$/y'};
 dd $/, $\;
"
'x
y'
("\n", "\n")