#!perl -p
6..&a;$.-=$.==/0/