my ( $foo, $bar ) = ( split " ", $baz )[2,4];