решение убогойе, но рабочее

$str = '111.bbb.333.ccc.555.ddd.666.eee';

for (0..3){
$str =~ s/\.//;
}
print $str;