Select Code to Download

$document = join("", <RTF_FILE>);

#!/usr/bin/perl
use strict;
...
        printf "% 8u %s %s\n", $v, $k, $msg;
    }
}

$ perl slurp_bench.pl TD3 30
Reading file 'TD3' 30 times with each routine.
...
     198 slurp_join 
     198 slurp_for 
     198 slurp_FS