use strict;
use warnings;

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

__END__

AA825944002