use glob

  DB<125> @combis = glob("{a,a1}{b,b1}{c,c1}")
 => ("abc", "abc1", "ab1c", "ab1c1", "a1bc", "a1bc1", "a1b1c", "a1b1c1
+")

[download]

glob takes a string which you can construct by replacing every "a" with "{a,A}" and so on...

see also Re: Substitution of a particular letter in all combinations of positions in word (see inside)

Cheers Rolf

( addicted to the Perl Programming Language)

UPDATE

  DB<129> $s = "aabc"
 => "aabc"

  DB<130> %r = ( a=>A, b=>B, c=>C )
 => ("a", "A", "b", "B", "c", "C")

  DB<131> $s =~ s/(\w)/{$1,$r{$1}}/g
 => 4

  DB<132> $s
 => "{a,A}{a,A}{b,B}{c,C}"

  DB<133> print "$_\n" while glob($s)
aabc
aabC
aaBc
aaBC
aAbc
aAbC
aABc
aABC
Aabc
AabC
AaBc
AaBC
AAbc
AAbC
AABc
AABC

[download]

In reply to Re: How to show all possible replacements? by LanX
in thread How to show all possible replacements? by BurningBeard

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.