my @users;
foreach (@site) {
  / ^ (?>\s*) <!-- (?>\s+) USER (?>\s+) (?>\d+) (?>\s+) - (?>\s+) (\S+?) (?>\s+) --> (?>\s*) $ /ix
  and push @users, $1;
}
print @users;