my $x = $ARGV[0].'00';
$x=~s/\.(..)/$1./;
printf "%d\n", $x;