#!/usr/bin/perl
while(<*.ppf>){
	open(FP,"$_");
	while(<FP>){
		if(/^Name/){
			@zz=split(/=/);
			}
		if(/^HiResPicture/){
			@zzz=split(/=/);
			}
		}
	close(FP);
	$zz[1]=~ s/\s//eg;
	@bb=split(/\./,$zzz[1]);
	$map{$zz[1]}=$bb[0];
	}
while(($key,$var)= each %map){
	print "$key $var\n";
	}