if ( $row =~ /(?:^|\Q$delimiter\E)[^\Q$delimiter\E]{256,}(?:\Q$delimiter\E|$)/ ) {
    print "Field greater than 255 characters in Row:\n\t$row\n";
    }