require DBI;
require DBI::ODBC;

##</code><code>##

use DBI;
use DBI::ODBC;

##</code><code>##

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