Select Code to Download

sub update_thing
{
...
  {
    $self->{cell}[$x][$y] = $u;
}

  $obj->update_thing(15000, 20000, sub { $_[0] =~ s[something][else]g;
+ $_[0] } );