Select Code to Download

#!/usr/bin/perl -w
use strict;
...
});

print $copy eq $data ? "OK\n" : "NOT OK\n";

Benchmark: running s///, tr///, each for at least 10 CPU seconds...
      s///: 12 wallclock secs (10.80 usr +  0.02 sys = 10.82 CPU) @ 37
+.89/s (n=410)
...
s///  37.9/s    --  -11%
tr/// 42.8/s   13%    --
OK

#!/usr/bin/perl -w
use strict;
...
});

print $copy eq $data ? "OK\n" : "NOT OK\n";

Benchmark: running s///, tr///, each for at least 10 CPU seconds...
      s///: 11 wallclock secs (10.52 usr +  0.01 sys = 10.53 CPU) @ 72
+.08/s (n=759)
...
tr/// 61.3/s    --  -15%
s///  72.1/s   18%    --
OK

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$