use strict;
use warnings;

for ( 'NA12345', 67890 )
{
    my $id = $_;
    print "$id -> ";
    $id =~ s/^NA//;
    print "$id\n";
}

__END__
NA12345 -> 12345
67890 -> 67890