#!/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";
}