my ($hex) = $string =~ /\b(0x[0-9a-fA-F]+)\b/;