#!/usr/local/bin/perl
$var="word1 word2 word word word3 someth word3";
print $var."\n";
@words=split(/ /,$var); $len=@words; $var="";
 for ($i=0; $i<=$len-1; $i++)
     {
      if ($words[$i] eq $words[$i+1])
         {print $words[$i]," detected\n"}
       else
         {$var.=@words[$i]." "}
     }
print $var."\n";
[download]