Add perl weechat beep script rewrite.