#!/usr/bin/perl

open AS, $ARGV[0];
open ADDRS, $ARGV[1];

while (defined ($_ = <AS>)) {
	while (/<\?>/) {
		$addr = <ADDRS>; chomp $addr;
		s/<(.*?)\?>/<${1}0x$addr>/;
	}
	while (/\?/) {
		$offset = <ADDRS>; chomp $offset;
		s/\?/0x$offset/;
	}
	print;
}