- or download this
my %sec;
my $newsecret;
...
$newsecret .= $char;
$sec{$char}++;
}
- or download this
$newsecret = join '', map { ??? } split //, $secret;
- or download this
my $newsecret = join '', map { my $char=$_; $_='' if exists $sec{$_};
+$sec{$char}++} split //, $secret;
- or download this
-----------------------------------
--the good, the bad and the physi--
-----------------------------------