if ($str=~/^?.../E)