nuance made a couple of sub-optimal choices: for instead of while, and the 4-argument substr to actually change $_ rather than the 3-argument form to get what he wants out of it.

while (<DATA>) {
    print substr($_, 0, 100);
}
[download]