#### #### my ($code, $text) = splice @subdata, 0, 2;