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