It's late, I'm tired. Do my job for me.

Code:
#!/bin/bash



declare -a SuffixList=( ".0" ".1" ".2" ".3" ".4" ".5" ".6" ".7" ".8" ".9" ".BEY" ".NOW" ".INH" )

declare -a PrefixList=( T v )

declare -A Series=( [Comic]="" [ThisYear]="" [NextYear]="" \

                    [Status]="" [Prefix]="" )

declare -a Issues=("")

declare -a ExceptionTitles=( 'Area 10' 'Area 510' '^The New 52$' )

    # ? Because otherwise the algorithm would see Area 10 and Area 510 as two

    # issues of the same series instead of two different books, and would 

    # collapse all 100+ issues of The New 52 - Futures End event into a single

        # "The New 52"  



Date="$(date '+%F - %T')"

ARCHIVE="./"

OutputFile="Condensed List - $Date"

ComicList="ComicList"

YEAR=' \(((19[0-9]{2}|20[0-1][0-9]|202[0-5])|(19[0-9]{2}|20[0-1][0-9]|202[0-5])(-|\,)[0-9]{2}|(19[0-9]{2}|20[0-1][0-9]|202[0-5])(-|\,)(19[0-9]{2}|20[0-1][0-9]|202[0-5]))\)'



declare WorkingComic="" Title="" Issue="" Prefix="" Comic="" LastWord=""

declare Quiet=1 OutputWidth=40





while getopts ":d:i:o:qw:-" OPTION; do

  case $OPTION in

    d) [[ -d "$OPTARG" ]] && ARCHIVE="$OPTARG" ;;     #Location of output

    i) [[ -f "$OPTARG" ]] && ComicList="$OPTARG" ;;    #Name of input file

    o) OutputFile="$OPTARG" ;;                #Kinda obvious

    q) Quiet=0 ;;                    #Supress progress to stdout

    w) [[ "$OPTARG" =~ ^[0-9]+$ ]] && OutputWidth=$OPTARG ;; #Keeps long titles short

    -) break ;;

    *) echo "Unrecognized option: $OPTION"; exit ;;

  esac

done

shift $(( OPTIND - 1 ))



Extract_Year() { echo `grep -E -o "$1" <<<"$2"`;}

Get_Last_Word() { [[ ${1: -1} == ')' ]] && echo "(${1##*'('}" || echo "${1##* }"; }



Remove_Cruft() {    # ref UnCrufted

  local -n UnCrufted="$1"

  local Word="$(Get_Last_Word "$UnCrufted")"

  local Cruft='\(.*\)'

  while [[ "$Word" =~ $Cruft ]]; do

    UnCrufted="${Comic% $Word}"

    Word="$(Get_Last_Word "$UnCrufted")"

  done

}



Add_Issue() {        # ref List, Element, ref Group 

  local -n List=$1

  local Element=$2

  local -n Group=$3

  List+=($Element)

  Group[Status]="Processed"

}



Is_Issue_Number() {         # Word, ref Number, ref Prefix, Title

        ### local functions ###

  Has_Suffix() { [[ "${SuffixList[*]}" =~ ${1##*.} ]] && return 0 || return 1; }

  Not_an_Exception() {    #Not all trailing numbers are issue numbers 

    local Exception='( [0-9][0-9]+(\.[0-9])? -[-]? .* [v]?[0-9][0-9]+)|( [0-9][0-9]+(\.[0-9])? -[-]? [.* ]?[v]?[0-9][0-9]+)'

    [[ "$1" =~ $Exception ]] && return 1 || return 0; }

  Exception_to_the_Exception() { #Because, of course there are.

    local ExceptionToException='(^Marvel 1602|^Spider-Man 2099|^The New 52|^James Bond 007|^James Bond - 007|Book [0-9]+ [-]?- [.* ]?[0-9]+$)'

    [[ "$1" =~ $ExceptionToException ]] && return 0 || return 1; }



  local Word="$1"

  local -n Number=$2

  local -n PrefixRtn=$3

  local Title="$4"

  local ThisPrefix="" Suffix=""

        ### Quick Checks ###

  [[ "${ExceptionTitles[*]}" =~ $Title ]] && Number="" && PrefixRtn="" && return 1

  [[ "$Word" == '-1' ]] && Number="$Word" && PrefixRtn="" && return 0 

  [[ ${#Word} == 2 && "${Word}" =~ ^(T|v)[0-9]$ ]] \

     && Number="${Word:1}" && PrefixRtn="${Word::1}" && return 0

  [[ ${#Word} == 1 ]] && Number="" && PrefixRtn="" && return 1

  [[ ! 0123456789 =~ ${Word::1} && ! "${PrefixList[*]}" =~ ${Word::1} ]] \

     && Number="" && PrefixRtn="" && return 1

        ### Pre-processing ###

  [[ "${PrefixList[*]}" =~ ${Word::1} ]] && ThisPrefix="${Word::1}" && Word="${Word:1}"

  if Has_Suffix "$Word"; then Suffix=".${Word#*.}"; Word="${Word/$Suffix/}"; fi

    ### Issue numbers do not have both prefix and suffix ###

  [[ ! "$Suffix" == "" && ! "$ThisPrefix" == "" ]] \

        && Number="" && PrefixRtn="" && return 1

  if [[ $Word =~ ^[0-9]+$ ]]; then

    if Not_an_Exception "$Title"; then

      Number="$Word"; PrefixRtn="$ThisPrefix"; return 0

    elif Exception_to_the_Exception "$Title"; then

      Number="$Word"; PrefixRtn="$ThisPrefix"; return 0

    else

      Number="";PrefixRtn="";return 1

    fi

  else

    Number="";PrefixRtn="";return 1

  fi

}



Process_Comics() { # ref SeriesInfo, ref IssueList, NextSeries, NextIssue, NextPrefix

  Show_Progress() {         # Output

    local Output="$1"; Output="${Output::$OutputWidth}"

    tput rc; tput el; printf '%s' "$Output"; }

  local -n SeriesInfo=$1

  local -n IssueList=$2

  local NextTitle="$3"

  local NextIssue="$4"

  local NextPrefix="$5"

  local Title="${SeriesInfo[Title]}"; SeriesInfo[Title]="$NextTitle"

  local Prefix=${SeriesInfo[Prefix]}; SeriesInfo[Prefix]="$NextPrefix"

  local ThisYear="${SeriesInfo[ThisYear]}";SeriesInfo[ThisYear]="${SeriesInfo[NextYear]}"

  local First="" Last="" SingleIssue=""



  (( ${#IssueList[@]} < 2 )) && SingleIssue="true"

  if [[ -n ${IssueList[0]} ]]; then

    First="${IssueList[0]}"; Last="${IssueList[0]}"; unset 'IssueList[0]'; fi



  if [[ "$Title" == "" ]]; then

   :

  else

    if [[ $SingleIssue == 'true' ]]; then

      [[ ! $First == "" ]] && Title="${Title} ${Prefix}$First"

      [[ ! $ThisYear == "" ]] && Title="${Title} $ThisYear"

      printf '%s\n' "$Title" >> "$OutputFile"

    else

      printf '%s ' "$Title" >> "$OutputFile"

      for i in ${!IssueList[@]}; do

        if [[ ${IssueList[$i]} == "" ]]; then

          unset 'IssueList[$i]'

        elif (( 10#${IssueList[$i]} == 10#$Last ||

                10#${IssueList[$i]} == $(( 10#$Last + 1 )) )); then

          Last=${IssueList[$i]}

          unset 'IssueList[$i]'

        else

          (( 10#$First < 10#$Last )) && printf '%s%s-%s%s,' \

                                               "$Prefix" "$First" "$Prefix" "$Last"\

                                        >> "$OutputFile" \

                                     || printf '%s%s,' "$Prefix" "$First" \

                                        >> "$OutputFile"

          First=${IssueList[$i]}; Last=${IssueList[$i]}

          unset 'IssueList[$i]'

        fi    ## IssueList[] ==

      done    ## for i

      (( 10#$First < 10#$Last )) && printf '%s%s-%s%s\n' \

                                            "$Prefix" "$First" "$Prefix" "$Last" \

                                    >> "$OutputFile" \

                                 || printf '%s%s\n' "$Prefix" "$First" \

                                    >> "$OutputFile"

    fi        ## SingleIssue ==

  fi        ## Title ==

  IssueList=(); Add_Issue IssueList "$NextIssue" SeriesInfo

  Title="$NextTitle"

  [[ "$Quiet" == 1 ]] && Show_Progress "$NextTitle"

}





Crop_Comic() {

  local OldComic="$1"

  local Single="${OldComic%\ -\ *}"

  local Double="${OldComic%\ --\ *}"

  [[ "$Single" == "$Double" ]] && echo "$OldComic" && return

  [[ "$Double" == "$OldComic" ]] && echo "$Single" && return

  [[ "$Single" == "$OldComic" ]] && echo "$Double" && return

  (( ${#Single} > ${#Double} )) && echo "$Single" || echo "$Double"

}

   



### main()

tput sc

while IFS= read -r Comic; do

  Series[Status]="NotProcessed"

  Series[NextYear]=$( Extract_Year "$YEAR" "$Comic" )

  Remove_Cruft Comic

  WorkingComic="$Comic"

  while [[ ${Series[Status]} == "NotProcessed" ]]; do

    LastWord="$( Get_Last_Word "$WorkingComic" )"

    if Is_Issue_Number "$LastWord" Issue Prefix "$WorkingComic"; then

      Title="${WorkingComic% "$LastWord"*}"

      if [[ "$Title" == "${Series[Title]}" ]]; then

        Series[Prefix]="$Prefix"

        Add_Issue Issues "$Issue" Series

      else

        Process_Comics Series Issues "$Title" "$Issue" "$Prefix"

      fi

    else

      Cropped="$(Crop_Comic "$WorkingComic")"

      if [[ "$Cropped" == "$WorkingComic" ]];then

        Process_Comics Series Issues "$Comic" "" ""

      else

        WorkingComic="$Cropped"

      fi

    fi

  done

done < "$ComicList"



    ### Still need to process last comic ###

Process_Comics Series Issues "" "" ""

[[ "$Quiet" == 1 ]] && tput rc && tput el