op en (fi,"bd") || die $!;
while (<fi>) { s/\'//g;
($login,$hash,$hz)=(split(",",$_))[4,5,46];
print "$login:$hash:".substr($hz,0,-3)."\n";
}
close(fi);