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");