Select Code to Download

$_ = "hi\x0bthere\x0d\x0aline 3?\x0a    line4\x0dno\x0away\r\n";
print;

@lines = split /\R/;
print "===\n", join( "\n===\n", @lines ), "\n===\n";

hi
  there
...
===
way
===