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

##</code><code>##

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

##</code><code>##

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