perl -pe 's/eval/print/' tucano_obfu.pl | perl | perltidy

##</code><code>##

srand;
my @c = ( 1 .. 90 );
my $i = 0;

while ( $i < 5 ) {
    my $e = int( rand( $#c - $i ) );

    my $u = $#c - $i;
    ( $c[$e], $c[$u] ) = ( $c[$u], $c[$e] );
    print "
 $c[$u]\n";

    $i++;
}

##</code><code>##

srand;@_=1..90;print$_[rand($#_-$_)],$/for+1..5;