$result{$_} = () = $string =~ $keyword{$_}
    for (keys %keyword);