<>;/../?s/(?=(..)?)./$1%9||$1&&-$1&&9/ge/redo:print for<>