perl -le "$_='x';while(1){s/aa/a/;print$_++;sleep 1}"