Perl : Get array of all possible cases of a string -

i need array of possible cases of string. it's written here:

combination of possible cases of string

how do in perl efficiently?

i want this:

print "$_\n" getcases('perl');  # output: perl perl ... perl ... perl 

note

i tagged glob because it's function want feed result, people me later find question. however, question not particular case of usage.

related question : should insert code when asking idea?

if you're aiming use if glob anyway can use glob's built-in pattern generation

my $filename = 'file.csv';  $test = $filename =~ s/([a-z])/sprintf '{%s,%s}', uc($1), lc($1)/iegr;  $test, "\n"; glob $test; 

output

{f,f}{i,i}{l,l}{e,e}.{c,c}{s,s}{v,v}  file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv file.csv