Perl wins again