$logfile=~/(.*)\.tar\.gz$/; 
        my $dirname=substr($1,0,-2); 

##</code><code>##

$logfile =~ /(.*)..\.tar.gz$/ or die "Bad non-match on $logfile";
my $dirname = $1;