Like this?

print for map { 
    $_ - 9900 
} 22200010001, 22200010101, 22200010102, 22200010103, 22200010201;;

22200000101
22200000201
22200000202
22200000203
22200000301
[download]

If both the new and the old value at the same time (e.g. if you want to call rename), the soluton in this post's parent can be refactored as:

@old_names = (
   22200010001, 22200010101, 22200010102, 22200010103, 22200010201
);

foreach (@old_names) {
   my $old_name = $_;
   my $new_name = $_ - 9900;

   ... do something ...
}
[download]

You need to specify exactly what transformation you want to make on the file names. Write that as a sub,

sub name_transform {
    my ($oldname, $newname) = shift;
    $newname = ;# whatever
    return $newname;
}
[download]

for (glob '/path/to/222*') {
    rename $_, name_transform($_);
}
[download]

sub TransformFileName($)
{
 my $FileName=shift;
 my $IdExp1=$FileName;
 my $IdExp2=$FileName;
 my $IdExp3=$FileName;

 $IdExp1=~s/(\d\d\d)(.*)?/$1/;
 $IdExp2=~s/(\d\d\d)(\d\d\d\d\d\d)(.*)?/$2/;
 $IdExp3=~s/(\d\d\d)(\d\d\d\d\d\d)(\d\d)/$3/;
 
 my @Transform=split(//,$IdExp2);
 my $value=0;
 for(my $i=0;$i<@Transform;$i++)
 {
   $value+=$Transform[$i];
 }

 my @Nsize=split(//,$value);
 my $Nzero=5;
 $IdExp2=$value; 
 for (my $i=0;$i<$Nzero-@Nsize;$++)
 {
   $IdExp2='0'.$IdExp2;
 }
 
 my $TransformedFileName=$IdExp1.$IdExp2.$idExp3;
 return $TransformedFileName;
}
[download]

Seems you want to break the names into three chunks with the prefix and suffix retaining their original values and the middle chunk incrementing every time a new suffix sequence starts.

That being the case something like this should work:

use strict;
use warnings;

my $prefix;
my $midCount;
my $lastSuffix;

while (<DATA>)
  {
  chomp;
  my $oldName = $_;
  $prefix = substr $_, 0, 3 if ! defined $prefix;
  my $suffix = substr $_, -2;

  ++$midCount if ! defined ($lastSuffix) or $suffix <= $lastSuffix;
  $lastSuffix = $suffix;
  my $newName = sprintf ("%03s%06d%02d", $prefix, $midCount, $suffix);
  print "$oldName -> $newName\n"
  }
[download]

Once you have the file name in a var like:

$filename = 'aa22200010001.png';
[download]

You can use either:

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

Or (as pointed by BrowserUK):

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

Just note that if your file name var contains the path to the file, and one of the directories in the path contains a similar name (ie. eleven consecutive digits, as in: '/tmp/0123456789019/22200010001.png'), you will have to modify the regexp to take it into account and the replacement part will/may not be so simple.

perl -e 'map( rename ($_, $_-9900), glob "222*"));'
[download]

Unless you're using Perl 5.8.1 or greater, using map in a void context like that is a bad idea. Even on a relatively recent Perl I still think it's harder to follow than the alternative using "for".

perl -e 'rename ($_, $_-9900) for glob "222*";'
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

I quite agree that your version with for reads better than map. However, having followed the linked discussion as you suggest, I see no justification for going as far as calling it 'bad' to use map in void context and consider that part an overreaction.

One world, one people