while ($c = <DAT>) {
	($id,$image,$url)=split(/\|/,$c);

	if ($type=~/^internal|partner$/) {
		push (@imgs,$image);
		push (@urls,$url);
		push (@des,$desc);
	}
}
close DAT;