 
<p> local $, = ','; </p>
<p> local $" = ',';</p>

##</code><code>##

 
sub printSpecial() {
      $\ = "\n";
      my @a = qw( One Two Three );

      print ("\n");
      print ("Join print statement\n");
      print ("\n");
      print join( ',', @a );

      {
        # $, The output field separator for the print operator.
        local $, = ',';
        print @a;
        print "@a";
      }
      {
        print ("\n");
        local $" = ',';
        print @a;
        print "@a";

      }
}