code by jwkrahn. that is working for me. i would like it to be decoded to my level, a beginner.

I'm afraid you'll have to be more specific which parts need explaining.

See also FMTYEWTK About Mass Edits In Perl, Iterator::Diamond/Iterator::Files, Tutorials: Perl documentation documentation, Searching Perl Documentation