my $regex = /<title>(.*?)<\/title>\n<link>(.*?)<\/link>\n<description>(.*?)\n<\/description>/;  
while ($data =~ /$regex/g) {
    #...
}