#!perl -pl
s/(.)\^(\d+)/\1**\2/g;$_=eval