#!/usr/bin/perl -w
use strict;

my $source = <<EOF;
[link title:Google]http://www.google.com[/link]
[link title:Altavista]http://www.altavista.com[/link]
[link title:perlmonks]http://www.perlmonks.com[/link]
[link title:and now something completely different]http://www.perlmonks.com/index.pl?node_id=104944[/link]
EOF

my ($complete,$title,$url);
while ($source =~ /(\[link title:(.*?)\](.*?)\[\/link])/gi)
{
        $complete = $1;
        $title = $2;
        $url = $3;
        print "complete: $1\ntitle: $title\nurl: $url\n";
        $source =~ s/$complete/<a href='$url'>$title<\/a>/g || print "regex failed\n";
}
print $source."\n";