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