if( $line =~ /N([\d\.]+)/ ){ $n = $1 };
if( $line =~ /G03X([\d\.]+)/ ){ $x = $1 };