Ugh. How about something a little cleaner?

my $count = () = x();
print "$count\n";
[download]