$line = 'huber@go.com  peter@muh.com';
my $regexEmail = qw((\s+)([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))(\b));

$line =~ s/$regexRfqEmail/X/gi;
print $line;