m8    92234.30c 0.0071  92235.30c 0.9300  92238.30c 0.06289                     
      8016.30c 2.0      42000.30c  2.5                                          
c                                                                               
c   BeO(2.86) Axial Reflector TD=3.01 / 95%=2.86                                
m9    4009.30c 0.5  8016.30c 0.5                                                
mt9   beo.01t                                                                   
c                                                                               
c   BeO(?AllgenCalc) Radial Reflectpr TD=3.01 / 95%=2.86                        
m10    4009.30c 0.5  8016.30c 0.5                                               
mt10   beo.01t                                                                  
c                                                                               
c   He/Xe(.0218) (72/28) ~.55 mol/L at 300K,1.38MPa, 39.6 g/mol                 
m11     2004.30c 0.7                                                            
       54124.30c 0.00027  54126.30c 0.00027  54128.30c 0.00576                  
       54129.30c 0.07932  54130.30c 0.01224  54131.30c 0.06354                  
       54132.30c 0.08067  54134.30c 0.03132  54136.30c 0.02661                  
c                                                                               
c   Sodium(0.929) RoomTemp = .97 g/cc,  at melt = .929 g/cc                     
c    Liquid = .929 - .000244*(t-371) (t in K) Handbook Ch&Ph                    
m12   11023.30c   1.0                      $ Na (.929 g/cc) frozen/void         
c                                                                               
c   Lithium(.515) RoomTemp = .534 g/cc,  at melt = .515 g/cc                    
c    Liquid = .515 - .000101*(t-454) (t in K) Handbook Ch&Ph                    

##</code><code>##

#!/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";