open(TST, "test.log") or dir $!;

while (<TST>) {
     chomp;
     if (/start/ .. /end/) {
       s/.*(start.*end).*/$1/m;
       print "$_\n";
     }
}