You can squash trailing zeros with  $num =~ s/0+$//;