$_ = "here are ::framed words:: to capture";

if ( /(::)(.*?)\1/ ) {
    print "text framed by $1 was <$2>\n";
}