anarchy golf - the source code

Count of circles in a number aka 2581 by teebee

#!perl -pl
$_=y/0698//+y/8//

Note that non-ascii characters in the above source code will be escaped (such as \x9f).