#!/usr/local/bin/perl
use strict;
use warnings;

print "Enter the filename to analyze (we can hardwire this later): ";
chomp ( my $filename = <STDIN> );

open my $FILE, '<', $filename or die "Can't read the source: $!";
open my $OUT, '>', "Space_Nukes_Rule_$filename" or die "Can't open output file: $!";

my $count=0;
my ($i, $j, $k, $popindex, $array, $arraytemp);
my (@array, @subarray, @arraytemp, @data);

while ( my $line = <$FILE> ) {
	if ( $line =~ /^m\d+/ ) {
		@arraytemp = ( split qr/\$/s, $line );
		#print "@arraytemp";
		@array = ( split qr/\s+/s, $arraytemp[0] );
		#print "@array\n";
		$array=@array;
		for ( $i=1; $i<$array; $i=$i+2) {
			push @data, "$array[$i]\n";
		}
		$line = <$FILE>;
		until ( $line =~ /^c/ or $line =~ /^mt?\d+/ ) {
			@arraytemp = ( split qr/\$/s, $line );
			@array = ( split qr/\s+/s, $arraytemp[0] );
			$array=@array;
			
			for ( $i=1; $i<$array; $i=$i+2) {
				push @data, "$array[$i]\n";
			}
			$line = <$FILE>;
		}
	}
}
print "@data\n";