$source =~ s/(\[link title:(.*?)\](.*?)\[\/link])/<a href='$3'>$2<\/a>/gi;