I haven't taken the time to actually download and run this code, but it looks pretty good to me. A few suggestions:

• You can chomp <DATA> straight away before passing it to the sort routine. The fact that you do so afterwards, and don't match whitespace before the $ anchor makes me wonder whether the regexp really matches anything.

  sort {...} chomp <DATA>;
  [download]

  
  Juerd correctly points out that you can't chomp DATA. In actual fact, you don't even need to chomp at all. You're not actually doing anything to the records. Get rid of the chomp and the -l switch and be done with it.
  
  
• The sort function looks sufficiently complicated to merit using a Schwartz Transform to perform the split only once (split to a list and sort on the different elements).
  The data you want to sort lend themselves beautifully to the Guttman Rosler Transform which is faster than the Schwartz Transform. (aside: the previous sentence shows clearly why the correct terminology is 'Schwartz Transform', not 'Schwartzian Transform'). Here is the code to do just that:

  print       
      map {
          substr( $_, 16 )    
      }
      sort    
      map {
          /^(\d+)       # digits of type
            (\D+)       # type character
            (\d+)       # part
            (\D*)       # detail (optional)
            R(\d+)      # revision count
            B?(\d*)     # alternate count (optional)
            \.(vec|ras) # file extension
            \s+$        # trailing whitespace
          /x
              ? sprintf( '%3s%03d%03d%2s%03d%1d%1s', # numbers add up to
  + 16
                  $7, 999 - ($6 || 0), $1, $2, $3, $5, $4, ) . $_
              : ('x' x 16) . $_
      }
      <DATA>;
  [download]

  The idea is that you add a prefix to the data you want to sort, in order to be able employ a bare sort. Once the array hits the sort code, you are running a C speed until the sort is done. No more perl op-codes for this baby. At the other end of the sort, you throw away the prefix.

  Note how I create the inverse of the alt count so that the normal compare still works. (The sprintf may have to be tailored to suit). Also note how I create a dummy prefix in case the regexp fails. For debugging, comment out the map that strips off the prefix.
  
  

• On the question of readability/maintainability, I would use the extended regexp syntax in order to comment what you're looking for.
  
  
• If you can use the // idiom to represent a regexp, then do so. Using m!! is unsettling.
  
  
• For a sort subroutine that big, name it. I.e.,

  sub part_sort {
      ...
  }
  sort part_sort <DATA>;
  [download]

  At least that way you can then set a breakpoint easily with b part_sort to see why the silly thing isn't working.
  
  
• You don't need the for block at all

  print sort part_sort <DATA>;
  [download]

  will do the job just as well.
  
  
• I don't presume to understand your job, but looking at the results, is the type subordinate to the layer or is it the other way around? I guess it's one of weirder naming schemes I have come across.
  
  
• As for your documentation, simply refer to http://www.perlmonks.org/index.pl?node_id=134235 in the comments. :)

--

g r i n d e r
just another bofh

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u';

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.