I don't see perlrun switches mentioned in perlport. Am I correct in assuming that the -a switch doesn't work in MacPerl? This fails: #!perl -0777anwF/\n/ print STDOUT join ("\n", map { join '.', reverse split (/\./, $_->[0]) } sort { my $agtb = @{$a->[1]} > @{$b->[1]}; for (0 .. ($agtb ? $#{$b->[1]} : $#{$a->[1]})) { return ($a->[1][$_] cmp $b->[1][$_]) if ($a->[1][$_] cmp $b->[1][$_]); } $agtb ? 1 : -1; } map { [$_, [split (/\./)]] } map { join '.', reverse split (/\./) } @F), "\n"; __END__ foo.baz.baz foo.bar.baz foo.bar.bar bar.baz bar.bar.bar =pod Well, actually SunOS perl -c complains too, but it runs fine there. Thanks. :) -Hao ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org