Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$string =~ s/\s+//g;
 
print length($string), "\n";

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

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