#!/usr/bin/perl
use strict;
use warnings;
#829841

my @parent =<DATA>;
my $substring = 'xxx';
my @count;
my $total;
    
for my $parent (@parent) {
    @count = split /$substring/, $parent;
    $total = $#count;
    print "there are $total $substring in $parent\n"; 
    if($parent =~ /$substring[\s\S]*$substring/) {   
        print "Duplicates\n" 
    }
    elsif( $parent !~ /$substring/) { 
    	print "None\n"; 
    }
    else { 
    	print "Unique\n" 
    }
    print "-"x25 ."\n";
    @count=""; $total=0;
}

__DATA__
xxx xxx xxx
xxx yyy xxx
yyy xxx yyy
zyx zyx
xx
x