use strict;#10 #32 #32 #32 #32 #32 #32 #32 #32 
use warnings;#32 #32 #82
package Cat;#73 
sub new { my $class = shift; return bless {@_}, $class }#80
sub feed{ my $me = shift; $me->{last_meal} = shift}#32
package Person;#10
sub new { my $class = shift; return bless {@_}, $class }#32
#49
package main;#55
#32
my $cat = Cat->new(#65 
					colors => [ qw(green white) ],#117
					age => 0,#103
					house => 'wilderness',#32
					attitude => 'brave',#50
					eyesight => 'keen',#48
					PID => undef ,#48
);#54
			#32
my $person = Person->new( #45
							attitude => 'compassionate',#32
							house	=> 'wonderful',#51
);#49
			#32
my $three_months = 60 * 60 * 24 * 90;#74
# sleep $three_months;#97
$cat->{ age }+= $three_months;#110 
$cat->{ house } = \$person->{house};#32
$cat->{ name } = 'Miki';#50
$cat->{ best_meal } = 'anchovies';#48
$cat->{ feeling } = 'good';#50
			#53 #10
my $eighteen_years = 60 * 60 * 24 * 12 * 18;#32
			#32 #32 #32 #32 #32 #32 #32 #32 #32 #32
# sleep $eighteen_years;
$cat->{ age }+= $eighteen_years;#47
$cat->{ kidneys } = 'failing';
			#92 #95 #47 #92 #10 
my $other_three_months = 60 * 60 * 24 * 90;
			#32 #32 #32 #32 #32 #32 #32 #32 #32 #32 
# sleep $other_three_months;
$cat->{ age }+= $other_three_months;
			#40 #32 #111 #32 #111 #32 #41 #10
$cat->{ eyesight } = 'blind';
			#32 #32 #32 #32 #32 #32 #32 #32 #32 #32 
$cat->{ feeling } = 'suffering';
			#62 #61 #95 #89 #95 #61 #60 #10 
if ( $cat->{ feeling } ne 'good' and $person->{ attitude } eq 'compassionate' ){
			#32 #32 #32 #32 #32 #32 #32 #32 #32 #32 
	$cat->feed('anchovies');
			#32 #32 #96 #45 #39 #10
	$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 $. == 5;
		
	}
}
__DATA__
 meow!