$s = substr($s, 0, rindex($s, '.'));

##</code><code>##

$s =~ s/\.[^.]*$//;