/0/|s/\B/0/gr%99-$i||print$_/!/2311/,$/for++$i..1x6;do$0