クリップボードにコピーした文字列から重複した行だけを削除する！

gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;
use Tkx qw( clipboard );

my $text = Tkx::clipboard('get');

$text = do {
            my %count;
            join "\n"
         => grep   { !$count{$_}++ }
            split m{ \n }msx, $text;
        };

Tkx::clipboard( 'append', $text );