$ perl -MO=Deparse -e 's.\...' s/.//; -e syntax OK