Select Code to Download

  $word = '\w+';
  $path = '(?:/$word)+';

  $pattern = '(?:$path|$word|$number|$operator)';

  my @tokenList = ();

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