use strict;
while ( <DATA> ) {
	my $val = sprintf( "%.01f", $_/1000 );
	# do maths with the truncated result....
	my $val2 = $val * 2; 
	print "$val - $val2\n";
}

__DATA__
100
1000
2314
171
123456789