while ( my ($m) = ($string =~ /<regex>/g) )
{
  <do something with $m>
}