in reply to Help with decimals
#!/usr/bin/perl -w use strict; my ($foo, $bar); $foo = 1500; $bar = 2; print $foo / (10 ** $bar) ."\n"; [download]