It would be more efficient to use split.

my( $int, $float ) = split /\./, $num;
[download]