perl -pe'$_{$_}++and$_=$,'