my $count = () = expression_in_list_context;

##</code><code>##

    my $count =()= expression;   # Goatse operator.