Is there a function in Perl equivalent to TrimRight. I need to trim the trailing chars '0' from a string.

Can you help me?