$ perl -MData::Dump -wE 'my $s = qq[\n</body> \n</html>]; my @array = split(/(?<=\n)/, $s); dd \@array'
["\n", "</body> \n", "</html>"]