#!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
;}}
[download]