Help for this page
( $foo ) = split ( /\./, $bar );
$foo = ( split ( /\./, $bar ) )[0];
( $foo, $boo ) = ( split ( /\./, $bar ) )[ 1, 0 ];