johngg@abouriou:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<__EOD__ or die $!;
this line does not match
this SUM is wrong
__EOD__

say q{};
while ( <$inFH> )
{
    chomp;
    do {
       say;
       next;
       } unless m{SUM};

    chop; chop; say;
}

close $inFH or die $!;'

this line does not match
this SUM is wro