DB<105> %names =(
           '&#32431;&#12385;&#12419;&#12435;' => 2,
           '&#21608;&#26480;&#20523;' => 57,
           'Alex Fong' => 100,
           )

  DB<106> $input=q{"Esther Kwan, &#32431;&#12385;&#12419;&#12435; | Alex Fong (Hong Kong) / Joe Smith ; Fong &#21608;&#26480;&#20523; Ferenc Kállai"}

  DB<107> $regex = join '|', keys %names

  DB<108> @matches = ( $input =~ /($regex)/g )

  DB<110> print join ",", @matches
&#32431;&#12385;&#12419;&#12435;,Alex Fong,&#21608;&#26480;&#20523;