#!perl
#gk_poetry 5 novembre 98 Guy Kastenbaum gkasten@filnet.fr

$s="tay here ";
open(YOUR,"eyes");
open(MY,"heart");

while (($time_is=<YOUR>)&&$s)
{
        $time_is=~s/e/n/s;
        $time_is=~s/t/e/m;
        $time_is=~s/a/d/;
        $time_is=~s/A/D/ism;
        print MY $time_is."\n\t";
		$s.="top " if $time_is=~/over/;
		$s.="till " if $time_is=~/money/;
        last if $s=~/tay here till top/;
}
close MY;
print "I ".((-f "heart")?"beat":$s) ;
close YOUR;$s;
__END__