Select Code to Download

#! /usr/local/bin/perl
use strict;
...
}

print "After:  $str\n";

Before: word1, word2, #18abcdefgh ,word4, #24qwer, word5
After:  word1, word2, <Binary block(1): 8 bytes> ,word4, <Binary block
+(2): 4 bytes>, word5

#! /usr/local/bin/perl
use strict;
...
    },
);

Before: word1, word2, #18abcdefgh ,word4, #24qwer, word5
After:  word1, word2, <Binary block(1): 8 bytes> ,word4, <Binary block
+(2): 4 bytes>, word5
...
                          Rate re-match whole string           match #
+\d\d
re-match whole string  75230/s                    --                  
+-28%
match #\d\d           104315/s                   39%                  
+  --