Select Code to Download

If you have code that purports to sort text that looks like this:

...

use Unicode::Collate;
@sorted_lines = Unicode::Collate::->new->sort(@lines);

use strict;
use warnings;
...
}
print "Great!!!\n";
exit;

> time perl test_ltgteq.plx
Great!!!
...
real    0m0.046s
user    0m0.036s
sys     0m0.008s

use strict;
use warnings;
...
print $Print;
exit;

> time perl test_ltgteq2.plx
$something eq ""
...
user    0m0.672s
sys     0m0.008s