note domm Oh, it,s not <i>that</i> hard to get them all... <pre> -- #!/usr/bin/perl -w just another perl hacker print+seek(DATA,$=*.3,@-)?~~&lt;DATA&gt;:$:__DATA__ </pre> 169437 170216