>perl -wMstrict -le
"my $x = 'aBaCaDaEaFa';
 $x =~ s/a/aa/ for 1 .. 3;
 print $x;
"