- unshift @in, [$t, $by, $comment];
- pop @in, if @in > 5;
- return join "\n", (map {(cldatetime($_->[0]) . " by $_->[1]: $_->[2]")} @in);
+ $comment =~ s/://g;
+ unshift @in, [$t, $by, $comment] if grep /^bur/i || is_callsign(uc $_), split(/\b/, $comment);
+ pop @in, if @in > 10;
+ return join "\n", (map {(cldatetime($_->[0]) . " de $_->[1]: $_->[2]")} @in);