print CSS "\@import url(zero.css);\nbody{\n\n}\n";
my @id = $html =~ /id\s*=\s*"?([^"\s>]+)/gis;
foreach my $id(@id){
	print "id -> $id\n";
	print CSS "#".$id."{\n\n\t\n}\n";
}