c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"dd $/;
 ;;
 my $s = qq{abc\r\n};
 chomp $s;
 dd $s;
 ;;
 my @lines = (qq{Overlapping\r\n}, qq{Strange\r\n}, qq{Text\r\n});
 dd \@lines;
 ;;
 chomp @lines;
 dd \@lines;
 ;;
 my $line = join '', @lines;
 dd $line;
 ;;
 print qq{$line};
"
"\n"

"abc\r"

["Overlapping\r\n", "Strange\r\n", "Text\r\n"]

["Overlapping\r", "Strange\r", "Text\r"]

"Overlapping\rStrange\rText\r"

Textngeping