$str1 = "accessagain";
 $str2 = "@cce$$ag@!n";

 $abc1 = "accessagain";
 $abc2 = '@cce$$ag@!n';


 $str1  =~  s/$str1/$str2/ ;
 $abc1  =~  s/$abc1/$abc2/ ;

 
 print " New String : $str1 : $abc1 \n";
 
 
##</code><code>##

 

 => 18203@!n  :  @cce$$@g@!n