>>169
if ($word=~/([a-zA-Z]*)a.*/){
$result=$1;
}