#!perl -pl
$_+=s/\..*//&$&*2