my $win = << "__WIN__"; line 1\r line 2\r __WIN__