dissect file
perl-recover: first crude success