my @foo = split "\n|\r\f", $test;