#!/usr/bin/perl -wn

BEGIN {
  $fuzzyone = 1;
  $fuzziness = 0;
  $notyet = 0;
}

if (/^#.*?, fuzzy/) {
  $fuzziness  = 1;
  next;
}

if ($notyet and ! /\"/) {
  print "Empty at ",($.-1),"\n";
}

$notyet = 0;

if (/msgstr/) {
  if ($fuzziness) {
      if ($fuzzyone) {
            $fuzzyone = 0;
      } else {
            print "Fuzzy at $.\n";
      }
      $fuzziness = 0;
  }
  if (/msgstr ""/) {
      $notyet = 1;
  }
}