Select Code to Download

use strict;
use Bio::SeqIO;
...
print 'Merged object out of loop : ', timestr($td4), "\n";
print 'Regexp with studying      : ', timestr($td5), "\n";

Regexp                    : 221 wallclock secs (221.08 usr +  0.05 sys
+ = 221.13 CPU)
Index                     : 22 wallclock secs (21.49 usr +  0.00 sys =
+ 21.49 CPU)
Merged object inside loop : 636 wallclock secs (636.61 usr +  0.21 sys
+ = 636.82 CPU)
Merged object out of loop : 651 wallclock secs (651.06 usr +  0.18 sys
+ = 651.24 CPU)
Regexp with studying      : 240 wallclock secs (239.50 usr +  0.27 sys
+ = 239.77 CPU)