Counter Culture solutions

Counter Culture was solved using Perl by 6 contestants. Solution sizes: average 1495 bytes (shortest: 578; longest: 2295).