perl -MO=Deparse,-p -e '120*312-77728+2.22772.224792222->x'
((-40288) + "\cB\x{58f4}\x{d660e9e}"->x);