$line1 =~ s{ addr:0x \K ([0-9a-fA-F]*) (?=\s+qospri) }
	{ sprintf "%x", hex($1)+$num }xe;