I'm not sure I understand what you're trying to do. Shouldn't it be this simple?

my @lines = split /\n/, $string;