$ perl -we'printf"%d, %.0f\n",$a=147.2*100,$a'
14719, 14720