Help for this page

Select Code to Download

Select or download this

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

Select or download this

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