As a completely non-Perl solution - if you are on a Unix-Like operating system you can use split which is designed to do just what you want.

/J\