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]

Then rename your files with something like this,

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