Help for this page
$logfile = $file; $logfile =~ s/\.asc$/.log/;
if ($file =~ m{(.*)\.asc}) { $logfile = "$1.log"; }