Select Code to Download

$/ = "\r\n";

for ("\r", "\n", "\r\n", "\n\r", "\r\r", "\n\n") {
    $line = 'text'.$_."text";
    $line =~ s/$1/\n/g if m/(\r\n?|\n\r?)/;
    print "$line\n";
}