my $search = qr/--\s*USER\s+\d+\s*-\s*(\w+)/;
  foreach $line (@site) {
    next unless ( $line =~ $search );
    $user = $1;
  }