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

23:00 >