Help for this page

Select Code to Download

Select or download this

  my $token;
  while( $token = $stream =~ /(
...
  )/gx ) {
     print $token;
  }