Select Code to Download

$text =~ tr/\r\n//d;    # using tr///
$text =~ s/[\r\n]+//g;  # using s///

# Contains a linefeed
...
} else {
  print "No linefeeds detected in the text.\n";
}