Help for this page
while (<DATA>) { if ( /^Start:\s/ .. /^Close:\s/ ) { # here you can collect your lines } }