my $price = ($wt || 1) * 10;
$price = 10 * $price/abs($price) if abs($price) < 10;

##</code><code>##

perl blrg.pl 2.3

Price: 23
Next Weight: .3
Price: 10
Next Weight: 0
Price: 10
Next Weight: -.3
Price: -10
Next Weight: -2.3
Price: -23
Next Weight: