my $file = 'gezippte_datei_Datum_#3.log';
my ($nr) = $file =~ m!#(\d+)\.log!;

while(1){
    unless(-e $file){
        last;
    }
    else{
        ++$nr;
        my $file = 'gezippte_Datei_Datum#'.$nr.'.log';
    }
}