open(FH,"<filename");
while(<FH>){
	@arr=split(/\\n/,$_);
        for($i=0;$i<$#arr;$i++){
		($id, $id2, $name, $date, $email)=split(/\|/,$arr[$i]);
		printf("Name:%s,ID1:%s,ID2:%s,Email:%s\n",$name,$id,$id2,$email);
	}
}
close(FH);