#badrule : /reg1/i '=' sub_rule ',' /reg2/i '=' sub_rule ';'
#   {
#      $main::machineword = eval <<R
\$item[3] << 3 | \$item[7];
R
#      1
#   }