Select Code to Download

use strict;
use warnings;
...
__END__
NA12345 -> 12345
67890 -> 67890

next unless $line =~ m{^(\S+) (\d+) (.*)};

use strict;
use warnings;
...
__END__
matched: NA12345
matched: 67890

use strict;
use warnings;
...
__END__
[string1][NA12345][other stuff]
[string2][67890][more stuff]