foreach $i (@lines)
{
next unless $i=~/^[a-zA-Z]/;
# your script here
}