my ($temp,$flag);
while ($token = $parser->get_token) {
    if ($token eq $start_token) {
         $flag = 1
    } elsif ($token eq $end_token) {
         $flag = 0;
         return $temp if $temp =~/KEY/;
         $temp = '';
    }
    $temp .= $token if $flag;
}