1 2
Irssi::signal_add_first("print text", sub { for ($_[1]) { $_ .= ' ' if /\cD(?!.....)/s } &Irssi::signal_continue })