or download this
#from chr 2 to right before first space or to the end of $str
#if no space is found
...
substr(10,two or more A's or 5 chars): IXT
substr(10,two or more X's or 5 chars): IXTAA
substr(3,two or more X's or end): CDEFDGHIXTAAGRAAAAAA theEnd