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

  DB<182> $s=join '{e,a}',split /e/,"ferber"
 => "f{e,a}rb{e,a}r"

  DB<183> @a=< $s >
 => ("ferber", "ferbar", "farber", "farbar")
[download]

UPDATE

one-liner

  DB<192> @a=glob(join '{e,a}',split /e/,"ferber")
 => ("ferber", "ferbar", "farber", "farbar")
[download]

Cheers Rolf

Comment on Re: Substitution of a particular letter in all combinations of positions in word (see inside) Select or Download Code

Replies are listed 'Best First'.
Re^2: Substitution of a particular letter in all combinations of positions in word (see inside) by AnomalousMonk (Archbishop) on Jan 09, 2013 at 14:39 UTC
... and using the `/r` substitution modifier of 5.14+: `>perl -wMstrict -le "printf qq{'$_' } for glob('ferber' =~ s{e}{{e,a}}xmsgr); " 'ferber' 'ferbar' 'farber' 'farbar'` [download]	[reply] [d/l] [select]
Re^2: Substitution of a particular letter in all combinations of positions in word (see inside) by Doctrin (Beadle) on Jan 09, 2013 at 13:17 UTC
Amazing! Thank you very much	[reply]