11 my ($s1, $s2, $d) = /([A-Z])/g;
12 $r{"$s1$s2"} = "$s1$d$s2";
17 while ($i < length $tmpl) {
18 my $s = substr($tmpl, $i, 2);
20 substr($tmpl, $i, 2) = $r{$s};
30 $count{$_} = () = $tmpl =~ /$_/g;
33 my @count = sort { $a <=> $b } grep { $_ > 0 } values %count;
35 say $count[-1] - $count[0];