Help for this page

Select Code to Download


  1. or download this
    $filename = 'aa22200010001.png';
  2. or download this
    $filename =~ s/(\d{3})(\d{6})(\d{2})/sprintf("%03d%06d%02d", $1,$2+1,$
+3)/e;
  3. or download this
    $filename =~ s/(\d{11})/$1 + 100/e;