open(FI, "<", $i_file) or die "Unable to open $i_file: $!";
while (sysread(FI, $_, 2 ** 16)){  
    if (/$n_delim/){
        print "Delimiter: $n_delim already in $i_file\n";
        exit 2;
    }
}