Your obfuscated is very good but I found a syntax error at the end near :
$n=int(rand 5)if($n==0)
Which should be :
$n=int(rand 5);if($n==0)

BobiOne (PERL bless me)