$string=~/^([a-zA-Z]{2}\d{9}).*/; print $1;