Select Code to Download

#!/usr/bin/perl

...
    {printf "%3d is a square\n" => $_ if (1 x $_) =~ /$re/}
do  {printf "%3d is a square\n" => $_ if (1 x $_) =~ /$re/} for 1 .. $
+MAX;
map {printf "%3d is a square\n" => $_ if (1 x $_) =~ /$re/}     1 .. $
+MAX;

perl -le "print $_,system(qq{perl script.pl $_ > dump.out})?' NOK':' o
+k' for (1..275)"

perl -le'print $_,$",system("perl script.pl $_ > /dev/null")?"NOK":"ok
+" for (1..275)'