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