$number = int $number;

##</code><code>##

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

##</code><code>##

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