dosubstr; print "---\n"; doregex; #### A12345 RELEASE A1 2345RELEASEA12345 FTOP DD_BUIL+ FT OPDD_REKL+FTOP FTOP DD_PLAN+ FT OPDD_REKL+FTOP ---