dosubstr;
print "---\n";
doregex;