130                         if ($file =~/(zip$)|(gz$)|(tar$)|(bz$)|(bz2$)/i) {
131                                 $untar{$file}=$untar_dir;
132                                 print STDERR "Got $file another tar file\n";
133                         } elsif ($file =~/md5$/i) {
134                                 my ($source_file)= $file=~/(.*)\.md5$/i;
135                                 print STDERR "Source file $source_file\n";
136                         }