$text_1 = "abc\nd";
$text_1 =~ m/.*(.|\n)/;
print("----------\n>" . $1 . "<\n");