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