my $Feeds = [
	'http://newyork.craigslist.org/search/fua?query=window%20fan&&format=rss',
	'http://newyork.craigslist.org/search/fua?sort=rel&max_price=50&query=wire+shelf&format=rss'
];

my $Results;
for my $Index (0 .. $#$Feeds) {
	$_ = get $Feeds->[$Index];
	s/\n//g;
	$Results->{$Index} = {
		'Query' => (/<title>craigslist newyork \| furniture search "(.+?)"<\/title>/i)[0],
		'Title' => [/<title><!\[CDATA\[(.+?)\]\]><\/title>/gi],
		'Link' => [/<link>(http:.+?)<\/link>/gi],
		'Description' => [/<description><!\[CDATA\[(.+?)\]\]><\/description>/gi]
	};
}