Someone

# In case you need to replace some part of the REMOTE_USER, you can
# use the following RegExp ($1 will be new login).
   $Self->{'Customer::AuthModule::HTTPBasicAuth::ReplaceRegExp'} = '^(.+?)@.+?$';