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