$a|=3x$'&!/ / x--$_."3$a"for<>;$a=~/.*3|/;print@+