Select Code to Download

print('String: a\nb\nc\n' . "\n");
$text_1 = "a\nb\nc\n";
$text_1 =~ s@(\n)$@@s;
print("----------\n>" . $1 . "<\n");
print("----------\n>" . $text_1 . "<\n");

String: a\nb\nc\n
----------
...
>a
b
c<