#!/usr/bin/perl -w

undef $/;

while (<>) {
        s/^COMMENT:\s+AUTHOR: .*?poker.*?^-----$//gsm;
        print;
}