#!/usr/bin/perl
$____=@____=split//,'';
$___=@___=split//,'hlrou';
$__=@__=split//,'aPent';
$/=@.=split//,'.rekc re hta sJ';
sub ____{print$____[--$____];}
sub ___{print$___[--$___];}
sub __{print$__[--$__];}
sub _{print$.[--$/];}

_.___.._.__;
_._.__.___..._._, _._.__..___;
_.__.._._.___;
_.___.__._._._.._._;