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