Select Code to Download

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