print $obj->thing;

##</code><code>##

$obj->thing = 'someting';

##</code><code>##

$obj->thing =~ s[this][that]g;

##</code><code>##

my @subthings = $obj->thing =~ m[subthing]g;

##</code><code>##

my $count = $obj->thing =~ m[subthing]g;

##</code><code>##

while( $obj->thing =~ m[subthing]g ) {
    last if substr( $obj->thing, pos( $obj->thing ) - 22, 22 ) 
         eq 'This is *the* subthing';
}

##</code><code>##

$obj->thing++;

##</code><code>##

++$obj->thing;