in reply to can split() use a regex?

Yes, is posible: 
($one,$two) = (split /\d+\s+/)[0,1];

[download]

In Section Seekers of Perl Wisdom