package Through::and;$through="\x4a\x75\x73\x74\x20\x41\x7";
package Sit::Bubbu;@sit=('H',' ','l','r','e','P',' ','r','e');
package Captian::my;@captian= reverse(@Sit::Bubbu::sit); 
package Run::Spot;@_='a'..')';$run=@_[0].@_[2].@_[10].@_[4].@_[17];
package Die::Bart;$die=")n!o&t#h"; $die =~ s/\W//g;

print $Through::and::through, $Die::Bart::die, @Captian::my::captian, $Sit::Bubbu::sit, $Run::Spot::run, "\n";print;