my @tworows = split /[^\n]+\n[^[n]+\n/, $text;