while ($source =~ /(\[link title:(.*?)\](.*?)\[\/link])/gi)