Тролль
опробовал. круто. хотят тут есть один косячек на мой взгляд, тем не менее в маде работает великолепно. перешел на эту систему =)
только изменил под свои нужды.
Код:
our $strAfterTrig="";
P::trig {
return if not $strAfterTrig;
P::echo $strAfterTrig;
P::disable ("PRINTAFTERTRIG");
$strAfterTrig = '';
} '^.*$', 'f10100:PRINTAFTERTRIG';
sub PrintAfter($) {
$strAfterTrig = $strAfterTrig . shift;
P::enable ("PRINTAFTERTRIG");
};