open(FILE, $i);

		my @files=<FILE>;
		chomp @files;

		for $j (@files){
 	
		
		my $id = $i;
			
				$id =~ s/out_//g;
				$id =~ s/.pdbqt//g;
			if($j =~ "REMARK VINA RESULT:"){

my $str = substr($j,25,5);

		print "$id\t$str\n";";
            }
        }