Perl: Split s String into lines

How to split a string into lines while preserving the trailing "\n":
my @a = split(/^/, $text);