program re

  character(80) :: LINE

  do
    read ( *, '(a)', end=99) line
    if ( line(6:6) == '*' ) then
      write ( *, '(a)' ) line
    else
      write ( *, '(a,3x,a,a,3x,a)' ) &
        & line(1:12), line(13:17), line(19:70), line(76:80)
    end if
  end do
99 end program