#!/usr/bin/perl -w
use strict;

my $string;
 
while ( <> ) {
  $string .= $_;
}
 
$string =~ s/\s+//g;
 
print length($string), "\n";

##</code><code>##


perl -e 'for ( 0 .. 100000000 ) { print "1234567890\n" }' > ! /scratch/100m

./evince_oddness /scratch/100m

Substitution loop at ./evince_oddness line 10, <> line 100000001