#!perl -pl
use bignum;$_*=0+s; ;e-