my $grep=`grep '$selection[$i]' /tmp/DATEINAME`;
(my $zahl, my $pfad)=split('\t',$grep);
            	
my $q=quotemeta($pfad);
if($grep =~m/$q/g){
            			#print "AUTO\n";
            			#print "$grep";	
            			$zahl=~s/^(\d+)k/$1 000/gi;
            			$zahl=~s/^(\d+)\.(\d)+M/$1$2 000000/gi;
            			$zahl=~s/ //g;
            			#$zahl*=1000;
            			#print "zahl: $zahl\n";
            			$size += $zahl;
            			#print "size: $size\n";
            			
            		}