while (/(\e\$(@|B)([^\e]|\e[^(]|\e\([^BJ])*) _at_ (([^\e]|\e[^$]|\e\$[^@B])*\e+\((B|J))/) {
    $_ = $` . $1 . '@' . $4 . $';
}