use strict;

my $lines = "";
while(<DATA>)
{
    $lines .= $_;
}

$lines =~ s/^s.*?e p$//msg;
print $lines;

__DATA__
Random String
s
erartt
e p
s
foo
e f
blah blah
s
adflkja
e p
End of file

##</code><code>##

Random String
s
foo
e f
blah blah
End of file