print $1 if $line =~ m/<!-- USER \d+ - ([^\s]+)/i;

##</code><code>##

print $1 if $line =~ m/<!-- USER \d+ - (\S+)/i;

##</code><code>##

my $user=undef;
for (@site) {
  if (/<!--.*USER.* (\S+) -->/) {
    print "joe:\n";
    $user = $1;
    last;
  }
}
print "user = $user\n";