scan for non-utf8 data in a pgsql dump and print it

utf8_psql.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Encode;

while (<>) {
  print "\n$_" if /^COPY/;

  eval { decode("UTF-8", $_, Encode::FB_CROAK) };
  
  print if $@;
}