Core Training solutions

Core Training was solved using Perl by 3 contestants. Solution sizes: average 2191 bytes (shortest: 1955; longest: 2504).