Select Code to Download

$number = int $number;

$string =~ tr/.//d;
# or
$string =~ s/\.//g;

$string = substr( $string, 0, index($string, '.') );
# or
($string) = $string =~ /^([^.]*)/;