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