In fact, your code is worse for 2 reasons:

• The output string $s2 no longer has any whitespace between words: Hello,Iamaperl/mysql...
• Generates a warning: Use of uninitialized value $s2...