The only data structure needed is a multi-line string :)

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11147618
use warnings;

local $_ = join '', <DATA>;
1 while s[^(?:.*\n)((?:.*\n){2}//\n)((?:.*\n)*)\K.*\n\1][]m;
print;

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

Outputs:

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