Select Code to Download

use List::MoreUtils qw( singleton  );
my $str = join '',singleton 
         split '',"abcdefghiaabccdjklm";
print $str;