use strict;
use warnings;

use Test::More tests => 1;

my $want = <<EOT;
start text
+ 123
+ 456
+ 789
EOT

my $out;
while (<DATA>) {
    last unless (/^(start|\+)/);
    $out .= $_
}
is ($out, $want);

__DATA__
start text
+ 123
+ 456
+ 789
some other text not starting with +