Aha, tehat egy regexpbol akarnal torolni, es cserelni is? Valoszinuleg meg lehet oldani, de erthetobb, ha kulon veszed:
$foo =~ s/$kif//g;
$foo =~ s/($c)+/\1/g; # aaa => a, amennyiben $c=="a"; ha akarmilyen karakterrel akarod, akkor gandalf82 megoldasa a nyero