#!perl -pl
$?=$_;$_=!/ /;1while$_=$?%$'.$_,$?/=$'