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

##</code><code>##

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

##</code><code>##

  my @tokenList = ();

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