my $name = '';
                        if($x =~ /<name>(.*?)<\/name>/igs)
                        {
                                $name = $1;
                        }
                        my $time = '';
                        if($x =~ /<published>(.*?)<\/published>/igs)
                        {
                                $time = $1;
                        }
                        my $content = '';
                        if($x =~ /<content type='text'>(.*?)<\/content>/igs)
                        {
                                $content = $1;
                                $content =~ s/\n/ /ig;
                        }
                        print "$id\t$name\t$time\t$content\n";