my $str;
my $val = 0.123456;
($str = $val ) =~ s/^0//;
say "\$str: $str";