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