while ($FileStr !~ m/^([a-zA-Z])\w{0,7}\z/){
}