Select Code to Download

use strict;
use warnings;
...
my($n, $x);
if($line =~ /N([0-9\.]+)/){ $n = $1 };
if($line =~ /G03X([0-9\.]+)/){ $x = $1 };

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