find sub
{
      $File = $File::Find::name, -d && '/';
      $if($File =~ /\.extA$/ || $File =~ /\.extB$/ .....)
      {
            $File =~ s/some formatting stuff/;
            push(@FoundFiles, $File);
      }
},$Directory;