$str =~ s/\.\d+$//;
[download]

See perlretut for a gentle introduction to regexes.

That removes the last period followed by a number, at the end of the string. If you only want to remove .25, use s/\.25// instead.