try something like this

foreach(split //, $a){
  if(!(ord($_)>=97 && ord($_)<=122)){
   print "wrong symbol\n"; last;
  }
}
[download]

in this snippet
you basically compare your string,
symbol by symbol to ascii codes for a-z

you may change this in more proper way
for your particular situation, that's just an example