Help for this page

Select Code to Download


  1. or download this
    print "left @array right";
# try perl -MO=Deparse for that:
print 'left '.join($",@array).' right'
  2. or download this
    local $" = '';
#...
...
#or better

-default => join('',@source)