$obj->bar++;

$obj->bar =~ s[a][b]g;

$obj->len++ while substr( $obj->bar, $obj->start, $obj->len ) =~ m[^\s+$];
substr( $obj->bar, $obj->start, $obj->len, '');
$obj->len = 0;