package ChunkOData;

sub from {
  my ($class, $chunk) = @_;
  $chunk =~ s/\n\t//g;  # continuation lines are easy
  # parse $chunk like you already know how
  # shove it into a hash
  return bless \%self, $class;
}

# write some accessors

# write some common useful junk


package main;

local $/ = '';
while (my $chunk_text = <>) {
 my $chunk = ChunkOData->from $chunk_text;
 next unless $chunk->type eq 'UR';
 $chunk->owner('me');
 if ($chunk->is_a_certain_type) {
   $chunk->do_some_standard_thing;
   $chunk->do_something_else($with_my_info);
   subroutines_are_good($chunk);
 }
 $chunk->print;
}