$in = "captionOutTagged.xml";
open (IN, $in) or die "can't open the infile $in \n";
#####

while (not eof (IN)){
	$line = <IN>;
	chomp $line;
	#print "$line\n\n";


	# airplanes models: have a digit at the end of second tag
	if ( @terms = $line =~ /\<M\>(.*?)\<\/M\d+?\>/gix  ) {
		#	print "=**$1**=\n";
	}
	# no number then avionics general terms
	elsif (@avionics = $line =~ /\<M\>(.+?)<\/'M'\>/gix) {
		#print " LINE: $line\n";
		#print "$1\n";
	}


##########
	foreach $term (@terms){
		print "$term\n";
	}
	foreach $avionic (@avionics){
		print "$avionic\n";
	}


#########

} # end