After enjoying the game result, I've found a late improvement to my artisitic entry (222.26):
#!perl
s!!('$>{-
drew_beat_`}.=$_,for+sort%>;'x2).'print@>{1..$=}'!ex;claim;
#*********************************
s/-\ndrew_beat_`/anick_YEAH,
#*********************************
sort m;.;g/;s;-
drew_beat_`;s+
^+ +mg;;s;%;<;;eval
/-\ndrew
