my $lines = do { local $/; <DATA> };
$lines =~ s{
  ^ s \n                     # start line
  (?: ^ (?! s \n ) .* \n )*  # body excluding new start line
  ^ e\ p $                   # end line
}{}xmg;
print $lines;