My shortest is 30 chars:

sub u {
  grep{$a=$_;2>grep$_ eq$a,@_}@_
}
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print