Little Perl Script to remove trailing dot.