sub strings_from_bin {
    my ($file, $dlim) = @_;
    local *BIN;
    open BIN, "< ".$file or die $!;
    binmode BIN;
    local $/ = \(stat BIN)[11];
    my @strings;
#   ... populate @strings from <BIN>
    close BIN or die $!;
    @strings;
}