Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Textfile header

by spm (Acolyte)
on Sep 13, 2001 at 20:25 UTC ( [id://112236] : CUFP . print w/replies, xml ) Need Help??

This is a pretty cool line to add to the top of any ASCII text file.. I mean, nobody notices it, and yet anyone can use it ;)
while(<DATA>) { print; select(undef, undef, undef, (length($_) / 100)) +; } __DATA__