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