Select Code to Download

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

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

my $user=undef;
for (@site) {
...
  }
}
print "user = $user\n";