#!/usr/bin/perl
use 5.014;

# 964932

my $str;
my $val = 0.123456;

my $fmt = '%.3f';
 my $val_trunc = sprintf $fmt, $val;

($str = $val_trunc ) =~ s/^0//;
say "\$str: $str";