Win8 Strawberry 5.8.9.5 (32)  Wed 09/28/2022 18:56:53
C:\@Work\Perl\monks
>perl

use strict;
use warnings;
use Test::Simple tests=>1;
1..1

# Expected
my $expected_file_name = 'D:\PROJ\N123_X3\dataInfo_X-4_Y5_decode.csv';

# Given
my $X_info =  3;
my $Y_info = -4;
my $Z_info =  5;

my @intro = ('D:\PROJ\N123_X', $X_info, '\dataInfo_X', $Y_info);

my $concatenated_name = join '',
    @intro, '_Y', $Z_info, '_decode.csv',
    ;

ok($concatenated_name eq $expected_file_name, 'join concatenation');

^Z
ok 1 - join concatenation