#!usr/bin/perl

open (FILE1, "<file_hex.txt") or die "can't read the file";
open (FILE2, ">output_log.txt") or die "cant write into the file";

while (<FILE1>) {
		if($_ =~ (/(^\=\>\s+)(0x[0-9a-f]+){1,10}(.*)/)) {
		$value1= $2;	
		print FILE2 $value1."=inst1 \n";
	}
	elsif($_ =~ (/(^\s+)(0x[0-9a-f]+){1,10}(.*)/)) {
		$value2=$2;
		print FILE2 $value2."=inst2 \n";
	}          
}
close (FILE1);
close (FILE2);