use strict;
use warnings;

my $s = 'AA825944001';
$s++;
print "$s\n";

__END__

AA825944002
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.