tf8::SWASHNEW(/opt/acs/perl/lib/perl5/5.8.0/utf8_heavy.pl:167):
167:                my $val = hex(defined $3 ? $3 : "");