my $ext=($file =~ m{([^.]+)$} )[0];
   $ext=($file =~ m{.*Logger$})[0] unless($ext);