Select Code to Download

$_ = 'aaaabdbbdaccdacdaaabdcd';
++$counts{$1} while /(?=([abcd]{4}))/g;
print("$_: $counts{$_}\n")
   for sort keys %counts;

$_ = 'aaaabdbbdaccdacdaaabdcd';
++$counts{$1} while /(?=([abcd]{4}))/g;
print("$_: $counts{$_}\n")
   for glob "{a,b,c,d}{a,b,c,d}{a,b,c,d}";