#!/usr/local/bin/perl -w
print "Enter an output file to analyze: ";
	
chomp ($phoenix_out= <STDIN>);
open (OUTPUT_FILE, "$phoenix_out") or die "can't open $phoenix_out: $!";

while (<OUTPUT_FILE>) {
      chomp;
	if (/0 EID:      93237      /){
		print "$.\n";
		next;
		print "anything?\n";
		($a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $l) = split;
		$ND243 = $i;
		print "The amount of Am243 is $ND243\n";
	} #else { print "$. Problem!" };
}