use strict;#10
use warnings;#32

package Cat;#32 
sub new { my $class = shift; return bless {@_}, $class }#32
sub feed{ my $me = shift; $me->{last_meal} = shift}#32

package Person;#32
sub new { my $class = shift; return bless {@_}, $class }#32

package main;#32

my $cat = Cat->new(#32
     colors => [ qw(green black white) ],#32 
     house => 'wilderness',#82 
     attitude => 'brave',#73
     eyesight => 'keen',#80
     PID => undef ,#32
);#32
            
my $person = Person->new(#00 
     attitude => 'compassionate',#00 
     house    => 'wonderful',#00 
);#00 
                   #0                             #0 
                    #00                         #00 
                     #00#00                   #00#00 
                     #00 #00                 #00 #00 
                     #00 #00#32    ####     #10#32#49 
                     #55 #32 #65 #117 #103 #32 #50 #48 
                    #48 #54 #32 #45 #32 #51 #49 #32##74 
                   #97 #110 #32 #50 #48 #50 #53 #10##32 
                   #32 #32      #32#32#32     #32#32#32 
                    #32 ##32    #47#92#95   #47 #92#10 
        #           #32 ##32 #32  #32 #32 #32 #32# #32             #
            #       #32 #32 #40 #32 #111 #32 #111 #32         #
                #    #41 #10#32#32      #32 ##32 #32     #
                    # #32 #32 # #32    #32 #32 ##62 #
          #  #  #  #   #61 #95 # #89 #95 #61#60#10 #   #    #    #  #
                      #  #32 #32 #32 #32 #32 #32 #
                    #     #32 #32# #32 #32 #32 #    #
                #            #32 ##96 #### #45             #
            #                     #39 #10                          #
                                          
my $three_months = 60 * 60 * 24 * 90;
# sleep $three_months;
$cat->{ age }+= $three_months;
$cat->{ house } = \$person->{house};
$cat->{ name } = 'Miki';
$cat->{ best_meal } = 'anchovies';
$cat->{ feeling } = 'good';
            
my $eighteen_years = 60 * 60 * 24 * 12 * 18;        
# sleep $eighteen_years;
$cat->{ age }+= $eighteen_years;
$cat->{ kidneys } = 'failing';
            
my $other_three_months = 60 * 60 * 24 * 90;         
# sleep $other_three_months;
$cat->{ age }+= $other_three_months;
$cat->{ eyesight } = 'blind';
$cat->{ feeling } = 'suffering';
             
if ( $cat->{ feeling } ne 'good' and $person->{ attitude } eq 'compass
+ionate' ){
    $cat->feed('anchovies');
    $0 = $cat->{ name };
    kill 'KILL', $cat->{ PID } if $cat->{ PID };
    undef $cat;    
}
END{seek DATA, 0,0;
   while(<DATA>){
                  print chr($_) for /#(\d{2,3})/g;
                  print $0 if $. == 21;        
  }
}
__DATA__
 meow!
[download]

L*