my $r1 = qr/([Na0-9\.\-\+]+)\s+
	    ([Na0-9\.\-\+]+)\s+
	    ([Na0-9\.\-\+]+)\s+
	    ([Na0-9\.\-\+]+)/x;