$ perl tmp.pl
non-unique words:
is, this,
$