my @paras = do {local $/ = "\n\n"; <FILE>};

##</code><code>##

my @wanted = grep {/^\Q$KWD:\E/} @paras;

##</code><code>##

print OUTFILE @wanted;