in reply to Re^2: insert line in between two lines
in thread insert line in between two lines

This might work for you.

undef $/;
$a = <DATA>;
$nline =q($exec = $ENV{EXEC};);
$a =~ s/\n([^\n]+)/\n$nline\n$1/s;
print "$a";
__DATA__
$cwd = cwd();
print"$cwd\n";

[download]

Prasad

In Section Seekers of Perl Wisdom