cmpthese( 10, {
	slurp_substr => sub { 
		open (FH, "<$filename");
		my $i = 0;
		while ( <FH>) {
			while ($ch = substr($_,$i++,1)){
			}
		}
		close FH;
	},
	slurp_simpleregex => sub {
		my $len=0;
		open (FH, "<$filename");
		while ( <FH>){
			$_ =~ /(.)$/;
		}
		close FH;
	},
	slurp_length => sub {
		my $len=0;
		open (FH, "<$filename");
		while ( <FH>){
			$len += length($_);
		}
		close FH;
	},
});