Select Code to Download

( my $i = 0 );
foreach $_ ( 1 .. 456 ) {
    (
...
    ( ++$i );
}
print("\n");

$ perl -le"print(1),2"
1

( my $i = 0 );
foreach $_ ( 1 .. 456 ) {
    print( ( ( $i % 100 ) ? '' : "\n\t" ) );
...
}
print("\n");