$logfile = $file;
   $logfile =~ s/\.asc$/.log/;

##</code><code>##

   if ($file =~ m{(.*)\.asc}) {
      $logfile = "$1.log";
   }