>perl -wMstrict -le
"for my $s (qw(0000.76 000.76 00.76 0.76 .76)) {
   die qq{oops - '$s' * 4 != 3.04} if $s * 4 != 3.04;
   }
 print 'aok';
"
aok