$F[1] = []; # nLength 39
$F[1][24]=0X6B; $F[1][25]=0X65;

$F[1][26]=0X62; $F[1][27]=0X61; $F[1][28]=0X62; $F[1][29]=0X5C; $F[1][30]=0X107;

$F[1][31]=0X65; $F[1][32]=0X76; $F[1][33]=0X61; $F[1][34]=0X70; $F[1][35]=0X2E;

$F[1][36]=0X74; $F[1][37]=0X78; $F[1][38]=0X74;


$F[2][24]=0X6B; $F[2][25]=0X65;

$F[2][26]=0X62; $F[2][27]=0X61; $F[2][28]=0X62; $F[2][29]=0X5C; $F[2][30]=0X72;

$F[2][31]=0X61; $F[2][32]=0X17E; $F[2][33]=0X6E; $F[2][34]=0X6A; $F[2][35]=0X69;

$F[2][36]=0X107; $F[2][37]=0X2E; $F[2][38]=0X74; $F[2][39]=0X78; $F[2][40]=0X74;

binmode STDOUT, ':encoding(UTF-8)';
fudge(\@F);
use Data::Dump; dd\@F;
sub fudge {
    my( $args ) = @_;
    for my $arg ( @$args ){
        next unless defined $arg;
        my $one = "";
        for my $char ( @$arg ){
            next unless defined $char;
            my $chr = chr( $char );
            print $chr;
            $one .= $chr;
            
        }
        print "\n";
        dd $one;
    }
}

__END__
kebab\ćevap.txt
"kebab\\\x{107}evap.txt"
kebab\ražnjić.txt
"kebab\\ra\x{17E}nji\x{107}.txt"