$_ = "456";
$count = () = /./g;
print $count;
# prints 3