while(<>){
if (m/ Start(.*?) End/sg) {print $1;}
}