Select Code to Download

# given the string value in $_ ...

my @v = split m#/#;
unshift @v, shift(@v) =~ /^(.*?)(\d*)$/;

    sprintf "%-4s%3d%3d%3d", @v;

  map { $_->[1] }
  sort { $_->[0] cmp $_->[1] }
...
    no warnings; # in case @v has less than 4 elements
    [ sprintf( "%-4s%3d%3d%3d", @v ), $_ ]
  }