Select Code to Download

    print $_ ? do {
                    $trip = $trip ? 0
...
                                              } || '-'
                                         : ' '
                     : ' ';

my $x = $counter > 4 ? 1 : 0;

my $x;
if( $counter > 4 ){
...
else {
  $x = 0;
}

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)