in reply to Column sort script

You can also user more elegant solution using File::Basename
--Artist

In Section Cool Uses for Perl