Then you just want to do a..

#!/usr/bin/perl -w

use strict;

my ($foo, $bar);

$foo = 1500;
$bar = 2;

print $foo / (10 ** $bar) ."\n";
[download]

Hope this helps..
Rich