#!/usr/bin/perl
# Program BASHYBrot.sh translated to Perl
@S = qw(P E R L Y);
$I=-1;
$e1 = "\e[";
$C=0;
for $x (1..24){
    $R=-2;
    for $y (1..80){
	$B=$r=$i=0;
	while ( $B <= 32 ){
	    $r2=$r*$r;
	    $i2=$i*$i;
	    $i=2*$i*$r+$I;
	    $r=$r2-$i2+$R;
	    $B++;
	    $V=(($r2 +$i2)>4);
	    if ( $V == 1 ){
		last;
	    }
	}
	if ( $B >= 32 ){
	    print ' ';
	}else{
	    $U=int (($B*4) / 15+30);
	    print "$e1"."01;"."$U"."m";
	    $C= ($C % 5);
	    print $S[$C];
#	    print ( eval ( "\$S$C" ) );
	    $C++;
	}
	$R += 0.03125;
    }
    print "$e1"."m"."\e"."(\r"."\n";
    $I += 0.08333;
} 

__END__