http://www.perlmonks.org?node_id=1174671


in reply to heredoc and Carriage return

I can confirm the behaviour in 5.25.5 (built on September 16) on Linux.

#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; my $nix = << '__NIX__'; line 1 line 2 __NIX__ my $win = << '__WIN__'; # ^M present at end of lines. line 1 line 2 __WIN__ # ^M present here, too: my $quoted = 'line1 line2 '; say /\r/ for $nix, $win, $quoted;

I can't find it documented anywhere.

Update: It doesn't work for normal quoted strings, either.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,