chomp ($_ = <>); s/\(.*\)/\@/g; print; print "\n";