Consider using dd conv=noerror, dd_rescue or ddrescue instead of Perl.

Already done. I'm reading from the dd'ed data, in fact.

If you care about your data, don't touch it and pay experts to rescue the data.

Buddy, now you're underestimating me ;)