#!/usr/bin/perl
use strict; 
use warnings; 

my @numbers = qw(1230.1200 10332.0120 1200); 
foreach my $number (@numbers) {
    $number =~ s/(\.\d*?)0*$/$1/
}
print join "\n", @numbers;