my @users;
foreach (@lines) {
    /<!-- USER \d+ - (\S+) -->/i and push @users, $1;
}