if($input_line =~ /UFRAME/){
		@line_array=split(/,/, $input_line);
				    #print "\n\n  line_array = @line_array";
		$UFRAME_index[$line_array[1]] = $line_array[1];
				    #print "\n\n  UFRAME_index[$line_array[1]] = $UFRAME_index[$line_array[1]]";
		$UFRAME_number[$line_array[1]] = $line_array[2];
				    #print "\n\n  UFRAME_number[$line_array[1]] = $UFRAME_number[$line_array[1]]";
		$UFRAME_x[$line_array[1]]  = sprintf("%.3f", $line_array[3]);
				    #print "\n\n  UFRAME_x[$line_array[1]] = $UFRAME_x[$line_array[1]]";
		    if($UFRAME_x[$line_array[1]] != 0){
			print "\n\n    WARNING:  UFRAME \[X\] value \($UFRAME_x[$line_array[1]]\) is NOT ZERO \!";
			$uframe_tilted = 1;

			#----------------
			# JUMP FROM HERE
			#----------------

		    }
		$UFRAME_y[$line_array[1]]  = sprintf("%.3f", $line_array[4]);
				    #print "\n\n  UFRAME_y[$line_array[1]] = $UFRAME_y[$line_array[1]]";
		    if($UFRAME_y[$line_array[1]] != 0){
			print "\n\n    WARNING:  UFRAME \[Y\] value \($UFRAME_y[$line_array[1]]\) is NOT ZERO \!";
			$uframe_tilted = 1;

			#----------------
			# JUMP FROM HERE
			#----------------

		    }
		$UFRAME_z[$line_array[1]]  = sprintf("%.3f", $line_array[5]);
				    #print "\n\n  UFRAME_z[$line_array[1]] = $UFRAME_z[$line_array[1]]";
		    if($UFRAME_z[$line_array[1]] != 0){
			print "\n\n    WARNING:  UFRAME \[Z\] value \($UFRAME_z[$line_array[1]]\) is NOT ZERO \!";
			$uframe_tilted = 1;

			#----------------
			# JUMP FROM HERE
			#----------------

		    }
		$UFRAME_Rx[$line_array[1]] = sprintf("%.3f", $line_array[6]);
				    #print "\n\n  UFRAME_Rx[$line_array[1]] = $UFRAME_Rx[$line_array[1]]";
		    if($UFRAME_Rx[$line_array[1]] != 0){
			print "\n\n    WARNING:  UFRAME \[Rx\] value \($UFRAME_Rx[$line_array[1]]\) is NOT ZERO \!";
			$uframe_tilted = 1;

			#----------------
			# JUMP FROM HERE
			#----------------

		    }
		$UFRAME_Ry[$line_array[1]] = sprintf("%.3f", $line_array[7]);
				    #print "\n\n  UFRAME_Ry[$line_array[1]] = $UFRAME_Ry[$line_array[1]]";
		    if($UFRAME_Ry[$line_array[1]] != 0){
			print "\n\n    WARNING:  UFRAME \[Ry\] value \($UFRAME_Ry[$line_array[1]]\) is NOT ZERO \!";
			$uframe_tilted = 1;

			#----------------
			# JUMP FROM HERE
			#----------------

		    }
		$UFRAME_Rz[$line_array[1]] = sprintf("%.3f", $line_array[8]);
				    #print "\n\n  UFRAME_Rz[$line_array[1]] = $UFRAME_Rz[$line_array[1]]";
		    if($UFRAME_Rz[$line_array[1]] == 0){
			print "\n\n    WARNING:  UFRAME \[Rz\] value \($UFRAME_Rz[$line_array[1]]\) is ZERO \!";
			$uframe_tilted = 1;

			#----------------
			# JUMP FROM HERE
			#----------------

		    }

			#--------------
			# JUMP TO HERE
			#--------------

		if ($uframe_tilted == 1){
		    print "\n\n    WARNING:  UFRAME \[$UFRAME_number[$line_array[1]]\] is \"Offset or Tilted\" \!\n";
		    print "\n                X  \= $UFRAME_x[$line_array[1]]";
		    print "\n                Y  \= $UFRAME_y[$line_array[1]]";
		    print "\n                Z  \= $UFRAME_z[$line_array[1]]";
		    print "\n                Rx \= $UFRAME_Rx[$line_array[1]]";
		    print "\n                Ry \= $UFRAME_Ry[$line_array[1]]";
		    print "\n                Rz \= $UFRAME_Rz[$line_array[1]]";
		    print "\n\nPlease confirm UFRAME \[$UFRAME_number[$line_array[1]]\] values are CORRECT \[Yes\/No\] ?" ;
		    $selection_chosen = <STDIN>;
		}