while ($string =~ /(pattern)/g) {
    do_something_with($1);
}