Аз нещата ги виждам така:

$same=1;
for (0..length($buf)){
if (substr($buf,$_,1) ne $keep){
$same=0;
last;
}
}