#!/usr/bin/perl

sub naturalSortInner {
    $x = uc( shift );
    $y = uc( shift );
    if( !($x =~ /\d+(\.\d+)?/) ) {
        return $x cmp $y;
    }
    $xBefore = $`;
    $xMatch = $&;
    $xAfter = $';
    if( !($y =~ /\d+(\.\d+)?/) ) {
        return $x cmp $y;
    }
    if( $xBefore eq $` ) {
        if( $xMatch == $& ) {
            return naturalSortInner( $xAfter, $' );
        } else {
            return $xMatch <=> $&;
        }
    } else {
        return $x cmp $y;
    }
    print "\n<before: '$xBefore', match: '$xMatch', after: '$xAfter'>\n";
}
sub naturalSort {
    naturalSortInner( $a, $b );
}


@arr = (
    'beta',
    'Alpha',
    'Gamma1',
    'Gamma',
    '23',
    '5',
    'Version1',
    'Version1.1',
    'Version1.2',
    'Version11.1-Sub1',
    'Version11.1-Sub10',
    'Version11.1-Sub3',
    'x23sub5',
    'Version2',
    'Version2.1',
    'GammaGlobulin',
    'Gamma10',
    'c',
    'Gamma2',
    'Gamma3',
);

print join( "\n", sort naturalSort @arr ) . "\n";