lifesaver script searches for string on raw disk to retrive lost textfiles/code

lifesaver.sh

@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+open(DEV, '/dev/sda1') or die "Can't open: $!\n";
+while (read(DEV, $buf, 4096)) {
+  print tell(DEV), "\n", $buf, "\n"
+    if $buf =~ /fletter/;
+}