#!/usr/local/bin/perl

$inFile = $ARGV[0];
$outFile = $ARGV[1] || $ARGV[0];

open (h,$inFile) || die "Cannot open file:$inFile\n";
@lines = <h>;
close (h);

$file = join('',@lines);
$* = 1;
@stuff = split (/<EXEC/,$file);
if ($#stuff == -1) {
    exit;
}

$out = shift(@stuff);
foreach $stuff (@stuff) {
    $out .= '<EXEC';
    $stuff =~ m|^([^\>]+)>|;
    $exec = $1;
    $r = $';
    ($old,$rest) = split (/\<\/EXEC\>/,$r);
    $insert = `$exec`;
    $out .= <<EOM;
$exec >
$insert
</EXEC>
$rest
EOM
}

open (h, ">$outFile") || die "Cannot open file for writing";
print h $out;
close (h);