>perl -wle"$r=[]; print scalar(() = eval { %$r || 1 });
0