my($hex) = $@ =~ /HASH\(0x(\w+)\)/;