#!/usr/bin/perl -p

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

s/0x($hex)\(/?(/g;