perl -MO=Deparse -e 'E S I X G S O O D'