#!/usr/bin/perl -w
@~{qw/OR TO BE IS TO
BEAS NOT/} =("\x72",
"\x0a\x79\x79","\x75"
,"\x0a\x69",
"\x0a\x79\x79","\x34"
,"\x62");print$~{TO},
$~{BE},$~{OR},$~{TO},
$~{BE},$~{NOT} ++,$~{
IS},$~{NOT},$~{BE},$~
{OR},$~{TO},$~{BEAS},
$~{NOT};#Good Advice.