$str =~ /Hulk hate (\w+)/k;