lanx@nc10-ubuntu:~$ perl -e '
$sub = "xxx";
$par = "xxx xxx xxx";
$count = () = $par =~ /$sub/g;
$count == 0 
   ? print "none" 
   : $count == 1 
       ? print "unique" 
       : print "duplicates";
'
duplicates