If what you're splitting is files, try File::Basename

Otherwise try splitting it up into words, using a regex. The superlative Perl cookbook suggests

/\b([A-Za-z]+)\b/

-- Anthony Staines