fork download
  1. gsub("([^\\s@]+@[^\\s@]+\\.)([^\\s@]+)","\\1\\L\\2", "something@somewhere.COM", perl = T)
  2.  
Success #stdin #stdout 0.28s 39772KB
stdin
Standard input is empty
stdout
[1] "something@somewhere.com"