use strict;
use warnings;

my @strings = qw(
	/help/one/one/one/bar/something_here
	/buy/cash/buy/water/water/water/baz/nothing_here 	
);

for (@strings) {
	if (m{(\w+/){2,}}) {
		print "Dup is '$1'\n";
	}
}

=prints
bar/
baz/
=cut