print sprintf("%0.02f",0.345);

##</code><code>##

perl -E 'print sprintf("%0.18f",0.346);'

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Data::Dumper;

my $l8 = 3.49;
my $l7 = 2;

my $subprice = 1.4;
my $tprice;

$tprice = ($l8/$l7)-$subprice;
if ($tprice < 1  && length($tprice) > 4) {
    print "SPRINTF - $tprice -  " . sprintf("%0.18f",$tprice) . "\n";
}