Select Code to Download

print $obj->thing;

$obj->thing = 'someting';

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

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

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

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

$obj->thing++;

++$obj->thing;