This is probably not what you are looking for and limited to this very special case...

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