use v5.12;
use warnings;

my %seen;

local $/="//\n";

while ( my $chunk = <DATA> ) {
    my @lines = split/\n/, $chunk;

    print $chunk
      unless $seen{ $lines[1] }{ $lines[2] }++
}


__DATA__
nick
AAAAAAAAAA
BBBBBBBBBB
//
george
EGRGERHTETEHTHR
VFRTTHTRRHTE
//
andreas
AAAAAAAAAA
BBBBBBBBBB
//
thomas
EWTRYTUYJTHT
CEWWEQRWT$G
//
peter
EGRGERHTETEHTHR
VFRTTHTRRHTE
//

##</code><code>##

nick
AAAAAAAAAA
BBBBBBBBBB
//
george
EGRGERHTETEHTHR
VFRTTHTRRHTE
//
thomas
EWTRYTUYJTHT
CEWWEQRWT$G
//