my $string = 'Test@example.com';
$string =~ s/\@/(a)/;