Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
local $, = ", ";
local $\ = "\n";
print @results;
  2. or download this
    /
   (?{''})
...
   (?{ $push @results, oct "0b$^R" })
   (?!)
/x