use strict;
    use warnings;
    
    my $substring = 'xxx';
    my $parent = 'xxx xxx xxx';
    my @count = split($substring,$parent);
    my $total = $#count + 1;
    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" }