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


##</code><code>##


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