$filename = 'aa22200010001.png';

##</code><code>##

$filename =~ s/(\d{3})(\d{6})(\d{2})/sprintf("%03d%06d%02d", $1,$2+1,$3)/e;

##</code><code>##

$filename =~ s/(\d{11})/$1 + 100/e;