Select Code to Download

use strict;
use warnings;
...
               split /$ntd|$dtn|$nv/,$msg;    
 return @words;
}   ##tokenize

###############################
sub token_2   
...
 @words{(split /$ntd/,$msg)} = ();
 return keys %words;
}   ## token2

################################
sub take_3
...

 return keys %words;
}   ##take_3