> 　　　　　　push(@msg, sprintf("%02d:%02d", $hour, $min) . ' 頃に蘇生する予\定です');

蘇生ではないですね。
メッセージは修正してください。

▼関連発言
│
└◆1667:回復表示 [rien] 02/10 20:58
　└◆1668:Re:回復表示 [moon] 02/11 00:18
　　└◆1669:Re[2]:回復表示 [moon] 02/11 00:22
　　　└◆1670:Re[3]:回復表示 [rien] 02/11 09:03
　　　　└◆1671:Re[4]:回復表示 [moon] 02/11 16:37
　　　　　└◆1672:Re[5]:回復表示 [rien] 02/11 17:11<-last