grep -o .|tac|perl -ple'++$$_;$_=$o/$..e2'|tac