foreach (split /\s+/, $line) {
   doSomeThing($_) if /([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))/;
}