Select Code to Download

my $number = 123.1234567;
$number =~ s/(?<=\.)(\d{1,6}).*$/$1/;
print $number;  # 123.123456

my $number = 123.1234567;
$number += .0000005;                   # Add 5 to the seventh digit
$number =~ s/(?<=\.)(\d{1,6}).*$/$1/;  # truncate to six digits
print $number;  # 123.123456