{ local $/; my $input = <>; if(/ Start(.*)? End/sg) { print $1 } }