Select Code to Download

Can't find string terminator "END_TEXT" anywhere before EOF

use strict;
use warnings;
...
}e;

print $data;

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