my @tokenList = ();

  while($data =~ /($pattern)/g) { push (@tokenList, $1); }