my $a = 000.76; my $b = 4; my $c = $a * $b; print $c;
304

my $a = .76; my $b = 4; my $c = $a * $b; print $c;
3.04

my $a = 0.76; my $b = 4; my $c = $a * $b; print $c;
3.04

my $a = 0000.76; my $b = 4; my $c = $a * $b; print $c;
304

my $a = 0000.76 + 0; my $b = 4; my $c = $a * $b; print $c;
304

my $a = .76; my $b = 4; my $c = $a * $b; print $c;
3.04

my $a = "000.76"; my $b = 4; my $c = $a * $b; print $c;
3.04