asdasd start asdasd asdasdasd asdasdas end asdasdas adasdas start as asdas dasdasdad asdasddas end qweqwe asdasd start asdsadsdasddasds sdasdas asdasdasdasd asdasdsa asdasd asdasdasd end #### start asdasd asdasdasd asdasdas end start as asdas dasdasdad asdasddas end start asdsadsdasddasds sdasdas asdasdasdasd asdasdsa asdasd asdasdasd end #### open(TST, "test.log") or dir $!; while () { chomp; if (/start/ .. /end/) { s/.*(start.*end).*/$1/m; print "$_\n"; } } #### 1.asdasd start asdsadsdasddasds sdasdas asdasdasdasd asdasdsa 2.asdasd asdasdasd end #### start adasd asdasd asdasd asdas end