my $regexEmail = qw((\s+)([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))(\b));
.....

if($line =~ m/$regexRfqEmail/go)
//tu was