因為比對兩次的關係，這會比對.com和.tw結尾的
所以都比對成功，所以找到bk20403@yahoo
.com和bk20403@yahoo
.com.tw
這是試用版，我之前寫的，現在的新版就己改進這個問題了，只比對一次
像我程式的這一段也做了限制
PHP 語法:
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]S{1,20}tw)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]com)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]org)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]hk)/is){
print mailurl "$1\n";
}
只找.tw .com .org .hk的e-mail結尾的