($|=print"$- $%
"),$--=$-?$%=<>/2:-<>for@INC