This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2011, Larry Wall

Binary build 1402 [295342] provided by ActiveState http://www.ActiveState.com
Built Oct  7 2011 15:49:44

##</code><code>##

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