push (@results, "$1::$2::$3") while $result_content =~ /$regex/g;

##</code><code>##

while ($result_content =~ /$regex/g) {
    push (@results, "$1::$2::$3");
}