c:\@Work\Perl\monks>perl -wMstrict -e "my $rx = qr{$[.\n]*}m;  print $rx;"
(?^m:0.\n]*)