#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];

sub rndStr{ join'', map{ $_[ rand scalar @_ ] } 0 .. shift }

our @strings = map{ rndStr 8, ':', 'a' .. 'z' } 1 .. 1000;

our( @a, @b );

cmpthese( -3, {
 	regex => q[
 		our @a = sort{
 			( $a =~ /:/ <=> $b =~ /:/ )
 			||
 			$a cmp $b
 		} @strings
 	],
 	index => q[
 		our @b = sort{
 			( ( index($a,':') >= 0 ) <=> ( index($b,':') >= 0) )
 			||
 			$a cmp $b;
 		} @strings
 	],
 });

print 'Okay' if "@a" eq "@b";

__END__
P:\test>test3
        Rate regex index
regex 14.6/s    --   -9%
index 16.1/s   10%    --
Okay

P:\test>test3
        Rate regex index
regex 13.7/s    --  -15%
index 16.2/s   18%    --
Okay

P:\test>test3
        Rate regex index
regex 14.5/s    --  -11%
index 16.3/s   13%    --
Okay

P:\test>test3
        Rate regex index
regex 13.1/s    --  -19%
index 16.2/s   23%    --
Okay