#!perl -pla
$_=a;0while"@F"=~++$_+y;f-z;