Select Code to Download

use strict;
use warnings;
...
    print 'done      ',  time -$start," sec";
    print "\n" x2;
}

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redos.pl 
=== length=5 string=aaaaa
...
post rx 1 20 sec
post rx 2 20 sec
done      20 sec