Select Code to Download

my $starting_line    = qr{ ^s [^\n]* \n }xsm;  # starts with an 's'
my $intervening_line = qr{    [^\n]* \n }xsm;  # anything
...

$line =~ s{ $start_line ${intervening_line}{$between} $end_line }
          {}gxsm;

Random String
s
...
e f
blah blah
End of file