perl -MO=Deparse -pi -e ...