perl -wle '$_="a"x20;s/(?{print "${^O}rules".-"${0}macs"})//g'|wc -l