#!/usr/bin/perl

$count = 0;
while () {
        chomp;
        if (/^\s+$/) {
                $xmlid = $1;
                $count++;
        }
        elsif (/^\s+(.+)<\/display-name>$/) {
                if ($count == 1){
                        $freevoid = $1;
                }
                elsif ($count == 3){
                        $channelid = $1
                }
                $count++;
        }
        elsif (/^\s+<\/channel>$/) {
                print "('$xmlid', '$freevoid', '$channelid'),\n";
                $count = 0;
        }
}