An alternative to chained string concatenation is the join built-in. This has the advantage IMHO that it operates on a "pure" list, i.e., one that can be
built | built arbitrarily from strings, arrays, function calls, etc.
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
Give a man a fish: <%-{-{-{-<