#!perl
no warnings ;
DRINK :
while ( $lets_have_a_drink ) {
drink() and drink() and drink( $some, $more ) ;
last DRINK if $ethanol > $insane
}
do { not $realise } ,
"party all nite" & sleep $not_enough ;
"Oh gosh !", my $head_hurts = "very bad day comin' up!";
bless $clients & $coworkers for @being_tolerant or @being_clueless ;
accept "this", $lesson ? "Next time" : learn() ;
sub learn {
$i='100111010100010000010111';
$s='1169710710132973210097121
321111021023210511011511610197
100325941';$x=3;while($s=~/(\d{$x})/g)
{print chr$1;$x=$1>0?2:3if$i=~/\G(\d)/gc
;}}