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

print  "parsing rfq_infile..\n";

open(rfqInfile, $rfqInfile) or die("could not open rfqInfile: " . $rfqInfile);

while($line = <rfqInfile>) {

    $line = lc($line);
    if($line =~ m/$regexRfqEmail/g) {
        $posEmails{$2} = '';
// debug        
print "email : " . $2 . "\n";    
    }