#!perl -p s// /while($x^$_)!~/[^]{9}|$_/;$x=$_