my $mailaddress='ganesans@uic.com'; $mailaddress=~s/\@/\\\@/;