or download this
my $str = '<!-- USER 20 - donkey_pusher_6 -->';
my $data;
...
re_comp: 4 wallclock secs ( 4.35 usr + 0.00 sys = 4.35 CPU) @ 22
+988.51/s (n=100000)
re_noback: 6 wallclock secs ( 6.27 usr + 0.00 sys = 6.27 CPU) @ 15
+948.96/s (n=100000)
subst: 1 wallclock secs ( 1.40 usr + 0.00 sys = 1.40 CPU) @ 71
+428.57/s (n=100000)