#!perl -pl
$a=(($_ x=8)&=''x(s#.\K#$a=~/./g;$&#ge/4-1)|$a|~$a)x2