#! /usr/bin/perl -w

use strict;

my $src = shift;
open SRC, '<', $src or die "$src: $!";
my $perl = "/tmp/domac$$.pl";
open PERL, '>', $perl or die "$perl: $!";
my $dest = shift;
print PERL <<PHDR;
#! /usr/bin/perl -w

use strict;

my \$dest = '$dest';
open DEST, '>', \$dest or die "\$dest: \$!";

PHDR

my $ctr = 0;
my $print = 0;
while (<SRC>) {
	tr/\r\n//d;
	if (/^!(.*)$/) {
		my $data = $1;
		if ($print) {
			print PERL "PR$print\n";
			$print = 0;
		}
		print PERL "$data\n";
	}
	else {
		my $data = $_;
		if (not $print) {
			$print = ++$ctr;
			print PERL "print DEST <<PR$print;\n";
		}
		print PERL "$data\n";
	}
}

if ($print) {
	print PERL "PR$print\n";
	$print = 0;
}

close PERL or die "$perl: $!";
close SRC or die "$src: $!";
system('/usr/bin/perl', $perl);
unlink $perl;