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

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

##</code><code>##

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

String: a\nb\nc\n - multiline match:
----------
>a<
----------
>
<
----------
>a<