Haircut solutions

Haircut was solved using Perl by 8 contestants. Solution sizes: average 2225 bytes (shortest: 830; longest: 7379).