s{([a-zA-Z_\.]+\@[a-zA-Zz\.\-]+)}
 {$1 eq $old ? $new : $1}ge