my @paragraphs = split /\n\n+/, $TEXT; # splitten bei 2 oder mehr newlines
for my $p (@paragraphs) {
    # in $p steht ein kompletter absatz von probe ... bis zum ende,
    # also mehrere zeilen
}