perl -e '$d=1;print/$d/?$d=$'"'"'+$`:$d,$/while<>'