my $trimmed_user;
  if ($user =~ /^(\w+)/) {
    $trimmed_user = $1;
  }