如何在tcl中避免来自我的数据的错误？

我是tcl的新手。当我在学习tcl的一些基本命令时，我发现这个问题我没有办法解决

例如，我有两行数据输出

-

watermelon

实际上，我真正想要的只是“西瓜”，我不想要“-”

我尝试使用regsub，如下所示，但也无法避免“-”

我还尝试使用下面的regexp跳过它，但仍然不起作用

if {[regexp -nocase "^{-\n}$" $fruits]} {

    continue    
}

---

任何建议/解决方案都可能有所帮助？

谢谢兄弟！我只是错过了比赛\

% set fruits {-
watermelon}
-
watermelon
%
% regsub "^-\n" $fruits {} fruits
1
% set fruits
watermelon
%

% set fruits {-
watermelon}
-
watermelon
%
% regsub "^-\n" $fruits {} fruits
1
% set fruits
watermelon
%