# my $textfinal;
my $textfinal = "What\nis\nwrong";

# more of your code

my @text = split(/\n/, $textfinal);
print $_, $/ for @text;