Select Code to Download

my $text = "foo 1\t2 3\nbar 1\t2 3\nbaz 1\t2 3";
my @lines = split "\n", $text;
...

Actual text:
foo 1(\011)2 3(\012)bar 1(\011)2 3(\012)baz 1(\011)2 3