doSomeThing($_) foreach /\s*([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))\s*/g;