use strict;
use warnings;
my $line = "N335G03X247.16Y580.07K6.89J96.62H1M25 N340M20 N345G45";
my($n, $x);
if($line =~ /N([0-9\.]+)/){ $n = $1 };
if($line =~ /G03X([0-9\.]+)/){ $x = $1 };