use Text::Glob::Expand;
my $x = 'cff_updated/1_lib/{A3DWE.1.Solexa-142587.splice.fastq,A3DWE.1.Solexa-142588.splice.fa­stq,A3DWE.1.Solexa-142589.splice.fastq,A3DWE.1.Solexa-14
2590.splice.fastq,A3DWE.1.Solexa-1­42594.splice.fastq,A3DWE.1.Solexa-142595.splice.fastq,A3DWE.1.Solexa-142596.splice.fastq,A­3DWE.1.Solexa-142597.splice.fastq,A3DWE.1.Solexa-142598.splice.fastq,A3DWE.1.Solexa-142599­.splice.fastq,A3DWE.1.Solexa-142600.splice.fastq,A3DWE.1.Solexa-142602.splice.fastq,A3DWE.­1.Solexa-142603.splice.fastq,A3DWE.1.Solexa-142605.splice.fastq,A3DWE.1.Solexa-142606.spli­ce.fastq,A3DWE.1.Solexa-142607.splice.fastq,A3DWE.1.Solexa-142608.splice.fastq,A3DWE.1.Sol­exa-142609.splice.fastq,A3DWE.1.Solexa-142610.splice.fastq,A3DWE.1.Solexa-142611.splice.fa­stq,A3DWE.1.Solexa-142612.splice.fastq,A3DWE.1.Solexa-142613.splice.fastq,A3DWE.1.Solexa-1­42614.splice.fastq,A3DWE.1.Solexa-142615.splice.fastq,A3DWE.1.Solexa-142616.splice.fastq,A­3DWE.1.Solexa-142617.splice.fastq,A3DWE.1.Solexa-142618.splice.fastq,A3DWE.1.Solexa-142619­.splice.fastq,A3DWE.1.Solexa-142621.splice.fastq}{.drp,.fna,.lib}';

my @y = map { $_->text } @{Text::Glob::Expand->parse($x)->explode};
print "Number of items: ", scalar @y, $/, join($/,@y);