my $substring = 'xxx';
my $parent = 'xxx yyy xxx zzz';
my $count = () = $parent =~ /\Q$substring/;
if    ($count < 1) { print "None\n";   }
elsif ($count < 2) { print "Unique\n"; } 
else               { print "$count\n"; }