my $has_unprintable_re = qr{ [^[:print:]] }x;

if  ( grep { /$has_unprintable_re/ } @{$memoryfile}[0,1] ) {
    LogMess( 'Error: Binary input data detected', 1 );
    return -1;
}