Help for this page

Select Code to Download

Select or download this

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

Select or download this

#!/usr/bin/perl

...
print qq($d, $e, $f, $g\n);

exit(0);