http://www.perlmonks.org?node_id=79817


in reply to Removing Trailing Whitespace: Multiple ways.

Just for statistics (on a K7-700) perl 5.6.0:
Benchmark: timing 1000000 iterations of regex, unpack, xeger... regex: 4 wallclock secs ( 3.74 usr + 0.00 sys = 3.74 CPU) @ 26 +7379.68/s (n=1000000) unpack: 8 wallclock secs ( 6.34 usr + 0.01 sys = 6.35 CPU) @ 15 +7480.31/s (n=1000000) xeger: 8 wallclock secs ( 6.55 usr + 0.01 sys = 6.56 CPU) @ 15 +2439.02/s (n=1000000)

--
tune