c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"$_ = qq{abc\ndef\nghi};
 my @ra = split /(.+)/;
 dd \@ra;
 ;;
 @ra = /^(.+)/;
 dd \@ra;
"
["", "abc", "\n", "def", "\n", "ghi"]

["abc"]