sub line_contains_non_printable {
    my ($line) = @_;
    my @split = split //, $line;
    foreach (@split) {
        my $ord = ord($_);
        return 1 if ($ord < 32 || $ord > 126);
    }
    return 0;
}