Re^3: Increment a mixed alphanumeric (Updated)

By extension:

#! perl -slw
use strict;

=comment
N1234Z becomes N12350
N12359 becomes N1235A
N9999Z becomes NA0000
=cut

my $id = "F00123Z";

for ( 1 .. 80 ) {
    print $id;
    last if substr( $id, -5 ) eq '9999Z';

    if( substr( $id, -1 ) eq 'Z' ) {
        substr( $id, -1 ) = '0';
        substr( $id, 1, -1 )++;
    }
    elsif( substr( $id, -1 ) eq '9' ) {
        substr( $id, -1 ) = 'A';
    }
    else {
        substr( $id, -1 ) ++;
    }
}
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: Increment a mixed alphanumeric (Updated) Download Code