Solution #3 - Two Parts

sub two_parts
{
    my $s = shift;
    if ($s =~ /^(.*)\.([^\.]*)$/)
    {
        my ($l, $r) = ($1, $2);
        $l =~ tr/.//d;
        return "$l.$r";
    }
    else
    {
        return $s;
    }
}