#!perl -pl
s/\^/++$@%2?"**":"^"/ge;$_=eval