Select Code to Download

#!/usr/bin/perl
use strict; 
use warnings; 
...
    $number =~ s/(\.\d*?)0*$/$1/
}
print join "\n", @numbers;