Assuming that your delimiter is in $delimiter then:

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