Select Code to Download

m/<blank\s+title\s*=\s*(["'])?(.*?)\1\s*>/
                                   --

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

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