Perlの正規表現につきまして

Question

下記判定条件の意味が分かる方教えていただけますでしょうか。
if( !($a =~ /^(-_a-zA-Z0-9'+*$^&%=~!?{}@\w+([-.]\w+).\w+([-.]\w+)\s[,;]?\b)*$/) ){
処理
}

Answer 1

きちんと検証はしていませんので正しく動作しているかどうかは分かりませんが、「 ^(-_a-zA-Z0-9'+*$^&%=~!?{}@\w+([-.]\w+).\w+([-.]\w+)\s[,;]?\b)*$」でそのままググルとe-mailアドレスのチェック関連ページが多数ヒットします。
そして面白い解析ページの紹介もHITしました。