print $_ ? do { $trip = $trip ? 0 : 1; $_ } && $_ : $trip ? !( $counter % 4 ) ? do { $nexchar = pop @string_arr; '^' eq $nexchar ? ' ' : $nexchar } || '-' : ' ' : ' ';