perl -de 0