Bacteria solutions

Bacteria was solved using Perl by 2 contestants. Solution sizes: average 1520 bytes (shortest: 750; longest: 2291).