$TLI = "MEH|MED|MMD|MMS|CR1|FR1";
while(m/($TLI)(....)([^$TLI]+)/g) {
  $error=$1; $length=$2; $text=$3; ## Do what you need with them here...
}