Help for this page
Select Code to Download
Select
or
download this
my $str; my $val = 0.123456; ($str = $val ) =~ s/^0//; say "\$str: $str";