c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"print qq{'wx$/yz'};
 dd $/;
 ;;
 $/ = qq{\r\n};
 print qq{'wx$/yz'};
 dd $/;
"
'wx
yz'
"\n"

'wx
yz'
"\r\n"