#! /usr/bin/perl

$val = hex('0x809ae08');

while (<>) {
    if ($_ =~ /MEMCPY: ([\w\d]+) - ([\w\d]+)/) {
	if ( (hex($1) - 24 < $val) && ($val < hex($2))) {
	    print $1 . "," . $2 . "\n";
	}
    }
}