#!/usr/bin/perl -w

#undef $/;

while (<>) {
        next unless (@foo = /^COMMENT:$/ ... /^-----$/);
        print if ! /poker/;
#       $_ =~ /poker/;
#       print $_, "\n";
        print @foo;
}