in reply to How to separate digits

If i understood your question correctly,this might help you.

@split = split/\./, $leading;

Prasad

In Section Seekers of Perl Wisdom