How to process a multiline string line at a time

Question

I'd like to get a substring between two delimiters (regexes) from a string. I want to use this:

while (<>) {
  if (/START/../END/) {
    next if /START/ || /END/;
    print;
  }
}

But this works on lines of stdin. I'd like make it work on lines of a string. How?

Answer 1

If you mean you want to process a string that already contains multiple lines then use split:

foreach (split(/\n/, $str)) {
  if (/START/../END/) {
    next if /START/ || /END/;
    print;
  }
}

Answer 2

Simply:

my ($between) = $string =~ /START(.*?)END/s;

Alternatively, read from the string:

use 5.010;
open my $string_fh, "<", \$string or die "Couldn't open in-memory file: $!";
while ( <$string_fh> ) {
    ...