Help for this page
use strict; while (<DATA>) { ... MS_C2DT801_PU7T801_0001_678b TS_C2DT801_RAYT801_0001_7d18 BP_CJBT801_NKRT802_0001_a6d8
11BT801 11BT801 11BT801 ... C2DT801 C2DT801 CJBT801
/[[:alnum:]]{4}$/