#!/usr/bin/perl
use strict; use warnings;

my $file = "file_name_to_the_txt";
open(my $fh,'<',$file) or die "Warnings: $!\n";
while (<$fh>) {
  print if (/^start/ .. /^\+/);
}
close ($fh);