I don't understand what you don't understand. I am assuming you have
some idea how to get (in Perl) a list of files which need to be changed.
Open each file in that list, save the stat information, open a file to
write to, write the changed contents to that file, and, after closing
that file, touch with the cached stat information.
It is possible to write that script in the time it took you to come up
with this genius response.
Alternatively, you can use the shell script provided by Tintin.
Personally, that's what I would have done, but you asked on a Perl
A. Sinan Unur < XXXX@XXXXX.COM >
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW: