Select Code to Download

#!/usr/bin/perl
use strict;
...
    @p = ();
}
print $_, "\n" foreach @a;

$_ = 1 x shift;
while( /^(11+?)\1+$/ ) {
...
    $_= 1 x ( length() / length $1 ) 
}
print length;

#!/usr/bin/perl
use strict;
...
    print $y, "\n";
    redo;
}

perl -le '$x=shift; for($y=2; $y<=$x; $y++) { next if $x%$y; $x/=$y; p
+rint $y; redo }' 7