>perl -wMstrict -le
"my $regexStr = qr{[0-9]+};
 my $suff     = '.dn';
 my $getDir   = 'c:\sh\\';
 ;;
 my $concat = qq{$getDir$regexStr$suff};
 print qq{for debug: '$concat'};
"
for debug: 'c:\sh\(?^:[0-9]+).dn'