Howdy Fellow Monks,

I recently attempted to include a heredoc within the eval'd rhs of a regex. No matter what I attempted, perl died with the following error:

Can't find string terminator "END_TEXT" anywhere before EOF
[download]

I've reduced this code to the following example:

use strict;
use warnings;

my $data = "line1\nfoobar\nline3\n";

$data =~ s{(foo)(bar)}{
    my $one = $1;
    my $two = $2;

    $one .= <<'END_TEXT';
Insert 1
Insert 2
END_TEXT

    $one.$two;
}e;

print $data;
[download]

Obviously, one can "fix" the issue by using an ordinary string instead, but I would like y'alls advice concerning this.

Super searching revealed only one thread connected to both heredoc's and regex, but it was unrelated.

Thanks

$data =~ s{(foo)(bar)}{
    my $one = $1;
    my $two = $2;

    $one .= <<'END_TEXT';

    $one.$two;
}e;
Insert 1
Insert 2
END_TEXT
[download]