my @a= split /[.]/, shift, -1;