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