0  'THREAD_ID'
1  'CDR_TYPE'
2  'SUB_TIME'

##</code><code>##

{ 'THREAD_ID', ('THREAD_ID:1bf1d698 CDR_TYPE:AO     SUB_TIME:240815144127   DEL...' =~ m/THREAD_ID:(.+?)\s*$z/)}
{ 'CDR_TYPE',  ('THREAD_ID:1bf1d698 CDR_TYPE:AO     SUB_TIME:240815144127   DEL...' =~ m/CDR_TYPE:(.+?)\s*$z/)}
{ 'SUB_TIME',  ('THREAD_ID:1bf1d698 CDR_TYPE:AO     SUB_TIME:240815144127   DEL...' =~ m/SUB_TIME:(.+?)\s*$z/)}

##</code><code>##

$hash{'THREAD_ID'} = '1bf1d698';
$hash{'CDR_TYPE'} = 'AO';
$hash{'SUB_TIME'} = '240815144127';