$str = "[email protected]"
と代入した後、

if ( $str =~ /(.+)@(.+)/ ) {
$a = $1;
$b = $2;
}

とやっても、パターンマッチしません。
パターンマッチ中の @ を \@ としても駄目でした。
$str に代入文字列の @ を \@ と置き換えるとマッチしました。
しかし、実際、ここには、メールのログからパースしたメール
アドレスがそのまま入ってくるので、\@ とは出来ません。
どうやったらうまくマッチさせられるでしょうか？