Select Code to Download

my $SearchStr = 'foo.txt';
#my $SearchStr = qr/^foo_.*\.txt\z/i;
#my $SearchStr = [ 'foo.txt', 'bar.txt' ];

my ($grepresult) = grep { $_->[0] ~~ $SearchStr } @cdata;