Select Code to Download

#!/usr/bin/perl

...

    #print "RES2: \n", $text_to_be_changed;
}

Benchmark: timing 1000 iterations of regexish, with_splitting...
  regexish: 59 wallclock secs (58.16 usr +  0.02 sys = 58.18 CPU) @ 17
+.19/s (n=1000)
with_splitting:  0 wallclock secs ( 0.02 usr +  0.00 sys =  0.02 CPU) 
+@ 50000.00/s (n=1000)
            (warning: too few iterations for a reliable count)