1.13: Actual Generated Code For Plain Sort

sub {
use strict ;
use warnings ;
	
	
	sort {
	do{ my( $left, $right ) = map { m((?-xism:^foo(\w+))) } $a, $b;
		$left cmp $right }
		||
	do{ my( $left, $right ) = map { m((?-xism:(\d+)$)) } $a, $b;
		$left <=> $right }

	} @_  ;
}