Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
      my $i = 0;
      join("",map { $_.($i++%2?"\n":" => ") } @_);
    }