我需要在perlTk中设置一个文本框，以便我可以输入2位数字并自动添加分隔符。
例如如果在文本框中有5个两位数字输入，即52、25、69、45、15，则在文本框中，如果我输入这5个2位数字，则分隔符（-）应在每两位输入后自动添加。
最终输入看起来像52-25-69-45-15请不要将分隔符自动插入。
这有点类似于下面的gif。enter image description here
这是一个示例，该示例说明如何注册在条目小部件中按下键时要调用的回调。您可以使用此回调在需要时自动插入破折号。
[我在这里使用bind()方法在bind()小部件上注册按键事件：
bind()
Tk::Entry