print $_ ? do { $trip = $trip ? 0 : 1; $_ } && $_ : $trip ? !( $counter % 4 ) ? do { $nexchar = pop @string_arr; '^' eq $nexchar ? ' ' : $nexchar } || '-' : ' ' : ' '; #### my $x = $counter > 4 ? 1 : 0; #### my $x; if( $counter > 4 ){ $x = 1; } else { $x = 0; } #### s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)