Select Code to Download

    my $test = qq|==Getting There==

testing [ref]bla bla bla [[http://www.google.com]] <b> test </b> and [
+[http://www.google.com\|testing]] [/ref]   hhh
...
  while  ($test =~ m%\[ref\](.*)\[/ref\]%gix) {
        print "FOO, $1 \n";
    }