$_ = 123.4567890;
tr/0-9/#/;
print;
__END__
###.#######
##</code><code>##

my $fixed_point_re = qr/\d*\.?\d*/;