$s = q[BONDING_MODULE_OPTS='mode=active-backup miimon=100 primary=p6p2 primary_reselect=1'];;

( $key, $value ) = split '=', $s, 2;;

print "<$key> <$value>";;
<BONDING_MODULE_OPTS> <'mode=active-backup miimon=100 primary=p6p2 primary_reselect=1'>

##</code><code>##

$s = q[BONDING_MODULE_OPTS='mode=active-backup miimon=100 primary=p6p2 primary_reselect=1'];;

( $key, $value ) = split '=', $s, 2;;

print "<$key> <$value>";;
<BONDING_MODULE_OPTS> <'mode=active-backup miimon=100 primary=p6p2 primary_reselect=1'>

$h{$key} = { map{ split '=', $_ } split ' ', substr $value, 1, -1 };;

pp %h;;
(
  "BONDING_MODULE_OPTS",
  {
    miimon => 100,
    mode => "active-backup",
    primary => "p6p2",
    primary_reselect => 1,
  },
)