perl -de1/0