Select Code to Download

#!/usr/bin/env perl

...
my $s_4 = Set::Scalar->new(uniq(split//, ""));
say $s_3->is_equal($s_4);
say $s_3 == $s_4;