some_sub(s/^[\*\+-] (.+)/$1/r, $opt);
  some_sub(s/^[\*\+-] (.+)/$1/r, $opt);
  some_sub(s/^[\+-] (.+)/$1/r, $opt);