lsb-time-read.pl

use warnings;

my $snum    = 0;
my $reading = 0;

open my $in, '-|', 'sox stamped.wav -e unsigned-integer -t .raw -';

while (read $in, $sample, 2) {
  $bit = (unpack "S", $sample) & 1;

  if (!$reading && $bit) {
    $byte    = 0x00;
    $pos     = 0;
    $reading = 1;
    $starts  = $snum;
    $stamp   = "";
  } elsif ($reading) {
    $byte |= ($bit << $pos);
    if (++$pos >= 8) {
      if ($byte == 0x00) {
        $reading = 0;
        print "$starts: $stamp\n";
      } else {
        $stamp .= chr $byte;
      }
      $byte = 0x00;
      $pos  = 0;
    }
  }

  $snum++;

}

close $in;