$test = 'aaE.a.2a';
$test =~ /^([^E]*?)E([^E.]+?)\.[^E]*?$/? print "yes\n": print "no\n";