use strict;

my $source	= $ARGV[0];
my $filename	= '';
die 'The file is not found.' unless -r $source;

open my $FN, $source;
while(<$FN>){
	y/\n\r//d;
	my $line = $_;
	last if '__EOF__' eq $line;
	$line = substr $line, 1 while '	' eq substr $line, 0, 1;
	$line = substr $line ,0, index $line,'	' if -1 != index $line, '	';
	$filename .= $line;
}
open my $FK, '> '.$filename or die 'Cannot make pxem file.';
binmode $FK;
while(<$FN>){
	y/\n\r//d;
	my $line = $_;
	$line = substr $line, 1 while '	' eq substr $line, 0, 1;
	$line = substr $line ,0, index $line,'	' if -1 != index $line, '	';
	print $FK $line;
}

close $FN;
close $FK;

print 'Compile complete!',$/,'filename : ',$filename,$/;

system 'pxemi.exe "'.$filename.'"' if '-e' eq lc $ARGV[1];