If you want a bit more precision than split, consider using unpack. The psgrep example on page 37 of Perl Cookbook is right on point for what you're doing.

That example wraps a number of tricks into a small script, and is well worth the time to study.