Select Code to Download

#! perl -slw
use strict;
...

close IN;
close OUT;

#! perl -slw
use strict;
...
    printf "\xf4X1" . '2' x 188 . "3\xf4X4" 
        . '5' x 56 . '6' . 'X' x 132;
}

|X122 ... 223|X455 ... 556XX ... XX
<code> 
...
<p>which after processing should end up as
<code>
122 ... 223455 ... 556

P:\test>401318-gen.pl -FRAMES=8500000 > 401318.dat

...
24/10/2004  06:24               303 401318.pl
               4 File(s)  5,372,000,496 bytes
               0 Dir(s)  49,639,051,264 bytes free