my $s1 = 'abaacaa';
my $s2 = 'abcdefg';

$s1 = join('aa', split('a', $s1, 4));
$s2 = join('aa', split(/[abcedfg]/, $s2, 4));

print "$s1\n";
print "$s2\n";