/^(\w+)=(.*)/ and $ENV{$1} = $2 for qx(
  . oraenvcommand
  printenv
);