( $foo ) = split ( /\./, $bar );