my $a,$b;

while ( somethingHere ) {
$b .= "s";
}