($str =~ /hai/g)[3]; # Fourth match