0x401d50  
0x360aa7c030  
0x405dc2  
0x405dc9  
0x405dd0  
0x405dd5  
0x405dd8  
0x401bb0  

##</code><code>##

#! user/bin/perl

#use strict;
#use warnings;

$length_buffer= 0x100;
$base= 0;
$base_end= ($base+ $length_buffer-1);



open(FILE1," < output_log.txt") or die "can't read the file";           

while(<FILE1>) {
	
	$inst_addr= $_;
	
	
	if($inst_addr) {
		
		use bytes;                                              		
	      $len_ofinstr=length( $inst_addr);                                
	      print " Length in bytes: ", $len_ofinstr, "\n";                  

	
	if($len_ofinstr >= $base && $len_ofinstr <=$base_end) {
		
		
		print FILE2 $hit. "\n";
		
		print " The inst fits in the buffer->hit, \n";
		$len_ofinstr+=$len_ofinstr;
		print "Total number of bytes in the buffer=", $len_ofinstr, "\n";
		
		$count_hit=$count_hit+1;
		print " Number of hits in the buffer= $count_hit", "\n";
		print FILE2 "number of hits in buffer". $count_hit. "\n";
	}
}
	else{
		
		if($len_inst == $length_buffer) {
			
			print " it can not hold anymore, \n";
			$base= $instr_addr & 0xffffffe0;
		}
	}
}