How to cycle through delimited tokens with a Regular Expression?

text ###token1### text text ###token2### text text

$text = 'text ###token1### text text ###token2### text text';

while($text =~ m/###(.+?)###/g) {
  print $1, "n";
}

@tokens = $text =~ m/###(.+?)###/g;

/###.+###/

text (#+.+#+) text text (#+.+#+) text text

token1: 1, token2: 2

token1: ###token1###, token2: ###token2###