while(<>) {
  if(/Start/ .. /End/) { print }
}

##</code><code>##

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