$str =~ s/\..$//;

##</code><code>##

# Under Construction