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

##</code><code>##

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