#!/usr/bin/perl -p

BEGIN {
	$hex = '[0-9a-fA-F]+';
	$sym = '[a-zA-Z_$][a-zA-Z_$0-9]*';
}

if (s/^($hex) <(.+?)>:$/<$2>:/o) {
#	$start = hex($1); $function = $2;
} elsif (s/^($hex)\t//o) {
	s/($hex) (<.*?>)/$2/o;
}