in reply to split issue

As for your second question (make sure the entry starts with a-zA-Z): 
foreach $i (@lines)
{
next unless $i=~/^[a-zA-Z]/;
# your script here
}

[download]

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

In Section Seekers of Perl Wisdom