#! /usr/bin/perl

my $inst1 = "";
while(<DATA>) {
    chomp;
    if ( /inst1/ ) {
        my ( $hex, $etc ) = split "=";
        $inst1 = $hex;
    }
    elsif ( /inst2/ ) {
        my ( $hex, $etc ) = split "=";
        my $diff = ($inst1 - hex($hex)) & hex("0x0ffffff");
        printf "Diff = %6x hex, and %d decimal.\n", $diff, $diff;
    }
}


__DATA__
0x405d75=inst1 
0x405d7a=inst2 
0x4035f7=inst1 
0x4035f8=inst2 
0x4035f8=inst1 
0x4035fb=inst2 
0x4035fb=inst1 
0x4035fc=inst2 
0x4035fc=inst1 
0x4035fd=inst2 
0x405d7a=inst1 
0x405d81=inst2