$obj->bar( $obj->$bar() + 1 );

my $temp = $obj->bar();
$temp =~ s[a][b]g;
$obj->bar( $temp );

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