use strict;
use warnings;

undef $/;
open OUT, ">:encoding(UTF-8)", "D:/wordpress/wordpress_categories.xml";
open (IN, "<:encoding(UTF-8)", "D:/wordpress/wordpress.2011-04-12.xml");

my $line = <IN>;
	while ($line =~ /<title>(.*?)<\/title>\n\t\t<link>(.*?)<\/link>\n\t\t<pubDate>(.*?)<\/pubDate>\n\t\t<dc:creator>(.*?)<\/dc:creator>\n\t\t\n\t\t<category>(.*?)<\/category>/i) {
		$line =~ s/(<title>(.*?)<\/title>\n\t\t<link>(.*?)<\/link>\n\t\t<pubDate>(.*?)<\/pubDate>\n\t\t<dc\:creator>(.*?)<\/dc\:creator>\n\t\t\n\t\t<category>(.*?)<\/category>)//i;
		print OUT "$1\n\n";	
	}
close (IN);
close (OUT);

##</code><code>##

<title>எழுத ​வேண்டிய கட்டு​ரைகள்</title>
		<link>http://naatkurippugal.wordpress.com/?p=501</link>
		<pubDate>Wed, 30 Nov -0001 00:00:00 +0000</pubDate>
		<dc:creator><![CDATA[ஸ்ரீஹரி]]></dc:creator>
		
		<category><![CDATA[கட்டு​ரை]]></category>