while($line = <rfqInfile>) {

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

}